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D urante o mis de margo, o setor de 
InformAtica esteve "chocado". As 
profundas alteragoes da poli'tica mo- 
net Aria decretadas pelo presidente deixaram 
os empresArios como que anestesiados, e 
quase nenhum negdcio se fez. Muitos fabri- 
contes "pararam". Outros honestamente 
admitiam: "estamos com produgao normal, 
no o sabemos A se estamos vendendo". As 
revendas realmente preferiram nao fechar 
muita coisa. Os compradores tambAm ini - 
bid os ficaram em compasso de espera. 

Ora, no meio da confusSo reinante. 
com o setor ainda tipo " barata-tonta ", eis 
que desembarca em nosso pat's um autSnti- 
co ET. O conhecido empresArio norte- 
americano Adam Osborne, criador de por- 
tateis peso-pluma, veio ao Brasil para uma 
palestra sob re TendAncias da Microin for- 
mAtica. E, alheio A "afligao" da industria. 
ele — que jA conheceu o gosto do fracasso — 
listou algumas regras para se alcangar su- 
cesso. 

Osborne acredita que a poli'tica de reser- 
ve de me read o praticada no Brasil - dad a a 
extensSo dos segmentos que abrange — nao 
darA certo. Segundo ele. existe uma tendSn- 
cia de comprar-se componentes e pegas de 
todas as partes do mundo. para se chegar a 
um prego mais acessi'vel. e antes do final 
de 86. serA possivel comprar um PC- like 
(512 Kb e dois drives de 5 1/4") por USS 
500, e um XT -like (5 12 Kb e Winchester de 
10 Mb) por USS 1000. Nos USA, A claro. 
Este processo irA, inclusive, determinar a 
perda de fatias de mercado da IBM. pois 
o consumidor preferirA comprar clones 
estrangeiros mais baratos (ele espera com 
ansiedade o langamento, daqui hA 3 meses, 
do PC da Am st rad, empresa inglesa que vem 
ganhando mercado por seus produtos 
de boa qualidade e biixo custo). 

Assim, seu conselho foi de que nossa in- 
dustria se especializasse no que fazemos me- 
Ihor (sintomaticamente, ele nSo disse o 
quel) e importasse. por exemplo, drives, mo- 
ni tores e tec I ad os. "que apresentam pregos 
desastrosos". 

E arrematou com a pergunta: em que a 
nagao perde mais: importando disk -drives 
ou vendendo 30 mil micros (PCs) por ano, 
quando existe potencial para 500 mil ou 
1 milhSo? PolSmico o rapaz. Ele s6 nao 
previu que. ao atingir a escala de 500 mil, 
nossa industria talvez alcangasse prego para 
fabricar os drives. Teriamos, contudo, chan- 
ces de voltar a comer do bolo ? De qualquer 
maneira. deixo com vocis alguns pensamen- 
tos deste ET da microinformitica brasileira: 

• HARDWARE "Nad a 6 mais significativo que a 
tendincia S padromtacao Maquinas nio compativeis 
com o IBM PC sao relegadas a mercados secundSnos". 

• COMP A TIBIL IDA DE : "E como gravider; existe 
ou nio. NSo hi meio termo". 

• APPLE: "O Apple II esti morrendo 0 Lisa foi 
um desastre; o Macintosh um semidesastre". 

• AMIGA e ATARI ST: " Nenhum tern chance 
de sucesso. VenderSo um pouco e irSo 
desaparecer. pois estSo competindo com o IBM -PC" 
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DUVIDAS SOBRE MSX 



Sou usu^rio de um micro TK-2000 e pre- 
tendo trocd-lo por um compativel com o 
MSX. Jd foram publicadas muitas informacoes 
em MICRO SISTEMAS a respeito dessa linha, 
mas mesmo assim ainda tenho algumas duvidas. 

a) Os cartuchos do Hotbit entram no Expert e 
vice-versa?; 

bl Quando vSo chegar aqui na Bahia o Expert 
e o Hotbit ?; 

c) O tec I ado do Expert 6 meca'nico ou por 
indugSo magndtica ? E o do Hotbit ?; 

Jorge Pablo Zapata Rivera 
Salvador — BA 

Prezado Jorge, enviamos suas duvidas aos 
dois fabricantes. Entretanto, atd o momento, 
s6 recebemos a resposta da Gradiente. 

" Caro Jorge P. Z. Rivera, referente as suas 
perguntas, esclarecemos os seguintes pontos: 

a ) Os cartuchos do Expert sSo 100% compati- 
veis com o Hotbit; 

b) Na Bahia. vocS poderi encontrar o Expert 
nas seguintes lojas; Crezosom — Rua Santo 
Agostinho, 60; Decora so m — Av. Antonio 
Carlos MagalhSes, quadra 4 e Mesbla — Av. 
Antbnio Carlos MagalhSes; 

c) O teclado do Expert 6 meca'nico e, atravds 
de um projeto bem elaborado, nos dd a precisao 
e durabilidade necessaries as exigdneias do pa- 
drSo Gradiente; 



ARQUIVO DE TELAS 



No numero 50 de MICRO SISTEMAS. li 
um artigo que muito me interessou: "Arquivo 
de telas”. Gostaria de fazer apenas duas pergun- 
tas ao autor daquele artigo: Como poderia 
apagar por completo o programa anteriormente 
arquivado, ja que ele diz que o arquivo nSo d 
afetado por CLEAR ou NEW? O botao de 
RESET faria isso? A outra pergunta d a seguin- 
te: Fiz um pequeno programa para desenhar 
na tela do micro que uso (um CP 500). Como 
eu poderia, ao invds de arquivar o desenho (o 
programa tambdm fica arquivado, nSo?), salvd- 
lo num disquete e, por exemplo, usa-lo na 
apresentagSo de um jogo qualquer? Assim, 
quando esse jogo fosse solicitado, apareceria 
o desenho feito com o programa do desenho e 
depois o jogo, normalmente. 

Lu/s Eduardo de Rosa Silva 
Campo Grande — MS 

Lufs Eduardo, sua carta foi remetida ao 
autor do artigo citado, Luiz Ferraz Netto, 
que enviou-nos a seguinte resposta: 

" Antes da resposta, pordm fazendo parte 
dela, uma corregSo de conceito na pergunta. 
CLEAR ou NEW nSo apagam nada. Em tdcnica 
de computagSo nada d apagado (seu programa 
BASIC nao d apagado por NEW; as varidveis 



nao sao zeradas pelo CLEAR); em computagSo, 
perde-se o enderegol O NEW apenas zera os 
dois primeiros bytes na drea do programa (que 
d um endereqo, um LINK). Logo, o programa 
BASIC, apds um NEW, pode ser facilmente 
recuperado, listado e novamente posto pronto 
para rodar. O CLEAR apenas mu da os pointers 
dos im’cios das dreas das varidveis (altera endere- 
gos apontadores). Assim, os valores das varid- 
veis tambdm podem ser recuperados apds 
um CLEAR, d s6 saber trabalhar nessa drea de 
memdria. Enfim, nada d perdido. . . a menos 
que o operador queira. 

E agora a resposta. . . basta deixar que os 
enderegos perdidos continuem perdidosl Se 
voed apertar RESET e nao reservar memdria al- 
guma (por ocasiao da inicializagao), os pointers 
do stack do si sterna e dos valores das varidveis 
strings se incumbem de deixar o assunto ante- 
riormente arquivado desprotegido. As primeiras 
digitagdes e execugdes de um novo programa 
irao paulatinamente substituindo as informa- 
gdes que anteriormente estavam protegidas. . . 
tudo vai se perdendo aos poucos. . . irremedia- 
velmente. 

Agora, a outra resposta. Como voed preten- 
de assoc iar o desenho arquivado com outros 
programas, em disco, a tdcnica de arquivamento 
deve ser outra. Os bytes das telas arquivadas 
devem estar na drea do programa e pertencen- 
tes, portanto, as linhas Idgicas. Os bytes podem 
estar armazenados em constantes strings, li- 
nhas REM. linhas de DATAS, etc. Recomendo 
para completo entendimento desses arquiva- 
mentos que voed leia os artigos publicados pela 
Saber Eletronica, numeros 157 e 158, tambdm 
de minha autoria. Ld sao esmiugadas as tdeni- 
cas de hibridagao de BASIC com linguagem 
de mdquina. Uma vez armazenados os bytes 
da tela nos modos indicados nesses artigos. 
dai para a f rente, d sd usar os coman dos do 
TRS-DOS ou DOS -500 para seu CP 500 para 
dar um MERGE entre o programa da memdria 
(linhas de valores baixos) com o programa do 
disco (linhas de valores altos). " 



Luiz Ferraz Netto 
SSo Paulo ■ SP 



sugestOes 



✓ 



E com grande satisfacao que escrevo a esta 
maravilhosa revista. Leio MS desde setembro/ 
83 e afirmo que esta nunca me desapontou, 
publicando programas e artigos da melhor qua- 
lidade e autoria. Sugiro que a sepao Hardware 
passe a publicar esquemas de interfaces e outros 
dispositivos, pois esse tipo de literatura tAcnica 
6 um pouco raro de se encontrar. 

Francisco Fukumoto 
Sao Paulo - SP 



Venho parabeniza-los pelo apoio que esta 
revista tern dado aos usudrios da linha Sinclair 
e pelos programas para o TK90X. 

Aproveitando a oportunidade pedirei a 
voces que, se fosse possivel, publicassem o 
Mapa da ROM do TK90X ou suas principais 
rotinas. 

Aquilino Novaes Rodrigues 
Frutal - MG 



Envie sua correspondencia para: ATI - Analise, 
Taleprocessamento e Informatics Editors Ltda., 
Av. Presidente Wilson, 165/gr. 1210, Centro, 
Rio de Janeiro/ RJ, CEP 20030, Sepao Cartas/ 
Redapao MICRO SISTEMAS. 
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MICRO SISTEMAS. abril/86 



Nova Linha de Terminals Cobra 



Aplica$oes Interativas em Ambiente IBM 



& 



tem o prazer de convidar 
Voce e sua Exma. Diretoria para o enlace 
matrimonial de sens filhos 




a realizar-se nos CPDs 
das empresas de maior porte deste pals. 
Devido a total compatibilidade entre 
os nubentes, nao havera nenhuma cerimonia. 
Os cumprimentos serao recebidos 
no proprio local de instalagao. 



Dotes do noivo: 

Terminal Concentrado Cobra TR 278 

Terminal Autonomo/ 

Concentrado Cobra TR 276 

Unidade de Controle Remota CT 274 
Emuladores TR 278 
Emuladores TR 276 



Dotes da noiva: 

Unidade IBM 3278, 
modelo 2 

Unidade IBM 3276, 
modelo 2 

Unidade de Controle 
Remota IBM 3274 



Os nubentes comunicam que por amor: suportam a utilizaQao do protocolo de linha BSCJ. 




Conhega as tecnicas basicas de organizagao de dados e coloque 
em ordem a sua agenda telefonica, orgamento ou saldo bancario. 



Organize seus arquivos 



Jose Rafael Sommerfeld 



M uitas vezes nos sentamos a 
frente do microcomputador 
e come^amos a fazer um pro- 
grama para controle de or$a- 
mento domdstico, agenda telefonica, sal- 
do bancdrio, etc. Nesse momento, nor- 
inalmente nos preocupamos em cons- 
truir um programa eficiente, utilizando 
de forma adequada as instru$6es e colo- 
cando, sempre que possivel, aquela ro- 
tina fantdstica que ate nos da grande or- 
gulho em mostrarmos aos amigos. 

No entanto, £ comum observar que, 
se por um lado existe a preocupa9§o em 
elaborar um bom programa, por outro, 
jd n3o acontece o mesmo com os dados 
manipulados por ele. 

0 objetivo deste artigo £ justamente 
tratar deste assunto: a organiza^io dos 
dados nos programas. 

Como o tema pode ser muito diverso 
- dependendo do usuario. de seu equi- 
pamento e dos perifdricos que possua 
direcionaremos o artigo ao usuario mais 
comum de micros pessoais, ou seja. 
aquele que (como eu) tern no cantinho 
da estante um computador pessoal (ndo 
importa o tipo), ligado a um televisor e 
a um gravador, e que se utiliza da lingua- 
gem BASIC para construir seus progra- 
mas. 

Primeiramente, e importante enten- 
der o que sao dados. Toda e qualquer in- 
formagSo tratada no programa sera um 



10 DIM A( 10) 

20 rOR.X-l.TO 10 

30 PRINT " ENTRE COM 0 .VALOR " 

40 INPUT _B. 

50 LET MX!-?. 

60 NEXT _X_ 

- FIXOS 

MUTANTES 

- ARQUIVOS 



Figura l - A cria^do de um arquivo com 1 0 
valorem 

dado. Podemos dividi-los basicamente 
em tres tipos: Fixos, Mutantes e Arqui- 
vos. 

Fixos - Sao aqueles que declaramos 
seu valor durante a const ru<;ao do pro- 
grama. Servirao como fatores de opera- 
9Ses aritmeticas, como controladores de 
procedimentos do programa, como ilus- 
tra^Oes na tela, etc. No exemplo apre- 
sentado na Figura 1, os dados Fixos sao: 
1, 10 e Entre com o valor. 

Mutantes - Sao as variaveis utiliza- 
das no programa para assumirem mais 
de um valor ao longo do mesmo, porem 
sem cardter de guardar em si um igual 
valor permanentemente. No exemplo da 
Figura 1, os dados variaveis sao: X e B. 

Arquivos - Sao as variaveis utilizadas 
no programa para guardar uma informa- 



920 de forma mais permanente. Os ar- 
quivos se constituem de mais de um ele- 
mento, apresentando-se normalmente 
como uma matriz ou vetor (ser2o expli- 
cados adiante). Ainda no exemplo da 
Figura 1, o arquivo seria a variavel A. 

A partir de agora, ndo falaremos mais 
sobre os dados Fixos e Mutantes. Vale 
apenas uma recomenda92o: durante o 
desenvolvimento de um programa, cada 
vez que se for utilizar um novo dado 
Mutante, deve-se anotar o nome da va- 
riavel que se utilizou para isso e o que 
ela representa. Essa pequena lista que ird 
se formando pode ajudar a saber quais 
dados estao em que lugar e quais varid- 
veis jd foram utilizadas no programa. 

Falemos agora sobre arquivos. Eles 
sdo, em sintese, um conjunto de regis- 
tros. Os registros por sua vez, sao con- 
juntos de informa9&es que se referem a 
um mesmo item ou elemento. Cada uma 
dessas informa9<5es dos registros sdo 
os campos. Vejamos um exemplo. Va- 
mos supor que queremos fazer uma 
agenda telefonica simples, que contenha 
apenas o Nome e Telefone da pessoa. 
Teremos entao dois campos: Nome e Te- 
lefone. Esses dois campos juntos forma- 
rao um registro e o conjunto desses re- 
gistros formara a agenda, ou seja, o ar- 
quivo. 

Os arquivos sao normalmente grava- 
dos em uma memoria auxiliar (disco. 



Fita, etc.) para uma futura utiliza9ao 
(uma consulta posterior a agenda etc.). 
Em equipamentos que possuem disco se 
torna mais facil a cria9§o e utiliza9ao de 
arquivos, pois neles os registros podem 
ser acessados um a um, de forma bastan- 
te rdpida. No entanto, ao se utilizar Fi- 
tas (que n2o possuem a mesma velocida- 
de dos discos), o tempo gasto em se en- 
contrar um registro torna sua utiliza92o 
quase invidvel. A S0IU9I0 seria uma so: 
simular o arquivo todo na memoria, 
com todos os registros juntos, de uma 
so vez. 

Vejamos, entao, como organizar um 
arquivo na memoria. 

DEFININDO 0 REGISTRO 

O primeiro passo e deFinir o registro, 
ou seja, quais campos ira conter e quais 
os tamanhos e tipos (numericos ou alfa- 
numericos) de cada campo. 

Para deFinir os campos, deve-se reu- 
nir todas as informa96es que atendam 
aos objetivos do programa. Voltemos ao 
exemplo da agenda telefonica, desta vez 
ampliando um pouco mais sua utiliza- 
920. Desejamos, entao, que o programa 
permita fazer a inclus2o e exclusao de 
um elemento da agenda; a pesquisa de 
um elemento atravds de seu nome e a 
obten92o das seguintes infom^Oes, 
apos a pesquisa: Numero do preFtxo do 
DDD, Numero do telefone, Numero do 
ramal e que tipo de telefone e, ou seja, 
residential, do trabalho, a favor, para 
recados etc. 

Pois bem, nosso registro teria entao 
cinco campos, que sao: Nome, PreFixo, 
Telefone, Ramal e Tipo. 

Agora, vamos definir os tamanhos e 
tipos de cada campo. Para esta tarefa, 
deve-se avaliar a informa92o de uma for- 
ma profunda, observando todas as im- 
plica9&es possiveis nesta deFmi9§o. O 
campo PreFixo, por exemplo. Poderia- 
mos deFini-lo como numerico, pois ape- 
nas numeros se apresentar§o em seu 
conteudo. No entanto, todos os c6digos 
de DDD nacionais se iniciam com zero e 
se o deFinirmos como numerico, ao fa- 
zer uma impress2o do numero 021, va- 
rios computadores o far2o apenas 21. 

Alem desta andlise, e importante 
tambdm que em determinados campos 
se obtenha uma Media ou Medida Maxi- 
ma em seu tamanho. 

Mddia — Seria aplicada ao campo 
Nome. Em uma agenda telefonica co- 
mum £ possivel encontrar nomes com 
ate 40 ou 50 posi95es, mas pode ha- 
ver casos em que o nome ocupe apenas 
duas letrinhas. Por exemplo, eu (acon- 
tece toda vez que mudo de telefone). 
Assim, deve-se estipular um tamanho 
medio julgado conveniente. O que n2o 
couber dos nomes grandes, deve ser 
abreviado ou simplesmente eliminado. 
Outro fato a considerar e que este cam- 
po servira tambem como chave de pes- 



quisa. Logo, o seu conteudo deve ser 
simples o bastante para n§o causar con- 
fus6es ao informar ao equipamento qual 
o nome que se deseja pesquisar. Assim, 
para uma agenda simples, um bom tama- 
nho para o campo Nome seria 20 posi- 
95es. 

Medida Maxima - Se aplica aos cam- 
pos PreFixo, Telefone e Ramal. Estes 
campos nao podem ser abreviados nem 
t2o pouco eliminados, pois a falta da 
informa92o n5o permitira que o objeti- 
vo seja atingido. Desse modo, podemos 
deixar estes campos com os seguintes 
tamanhos: PreFixo =4, Telefone = 7, 
Ramal = 4. Apesar de serem numericos, 
a melhor forma de armazenamento para 
estes campos e utilizar variaveis alfanu- 
mericas, por causa dos motivos jd expli- 
cados (a supressdo do zero a esquerda). 

Outro caso que deve ser sempre estu- 
dado e a possibiiidade de substitu^do de 



CAMPO 


TIPO 


TAMANHO 


NOME 


ALFANUMgRICO 


20 


PREFIXO 


alfanum£rico 


4 


TELEFONE 


alfanum£r I CO 


7 


RAMAL 


ALFANUMgRICO 


4 


TIPO 


NUMfiRICO 


1 


MARCA 


ALFANUMgRICO 


1 




TOTAL 


37 



Figura 2 - Definifdo dos campos de registro 



um campo que ocupe um grande tama- 
nho por um outro, de tamanho menor, 
tendo um conteudo simbolico. Vejamos 
um exemplo. O campo Tipo poderia ter 
10 posi96es alfanumericas. Seu conteu- 
do seria uma das express&es: Residencia, 
Trabalho, Favor ou Recados. Observem, 
no entanto, que as expresses utilizadas 
se repetirdo diversas vezes, com igual 
conteudo em vdrios registros. Nesta si- 
tua92o, pode-se utilizar em substitu^do 
a descr^ao por extenso apenas um codi- 
go de um digito, que representaria a si- 
tua9§o daquele campo. Exemplo: 1 = Re- 
sidencia, 2= Trabalho, 3 = Favor e 4 
= Recados. 

Ate agora ji deFmimos todos os cam- 
pos de informa93o do registro. Criare- 
mos agora um outro campo que tera 

Figura 3 - As 
formas de 
acesso aos 
campos 



como fun92o controlar a existencia ou 
n2o dos registros. Vejamos porque. Os 
registros possuirSo um codigo de aces- 
so. Esse codigo nlo estara gravado no re- 
gistro, pois ele e apenas a posi9ao fisica 
do registro no arquivo. Ao incluir um re- 
gistro, deve-se informar ao equipamento 
qual o codigo, ou seja. a pos^So fisica 
que aquele registro ocupara. 

Observem que, Fisicamente, todos os 
registros j£ existem, pois o arquivo deve 
ser dimensionado na memdria, no ini'cio 
da sua utilizaQSo. Assim, se for dado o 
codigo 12 a determinado registro, o pro- 
grama deve coloca-lo no registro fisico 
numero 12 e marcar esse registro como 
ocupado. Essa marca permitird, numa 
proxima inclusSo, que se veriFique se o 
registro ja esta ociipado, bloqueando as- 
sim a inclusSo de outra informa9§o so- 
bre uma existente. Da mesma forma 
essa marca servird para a exclusao. Se a 
marca representar um registro ocupado 
entao ele podera ser excluido, caso con- 
trario essa exclusao nao tera sentido. 
Daremos entao o nome de Marca a este 
novo campo. Se seu valor for igual a um 
signiFica que o registro fisico esta ocu- 
pado. Caso contrdrio, representa que ele 
esta livre. 

Finalmente, o registro estd criado. 
Observe na Figura 2 sua deFm^ao. Vale 
lembrar que, em determinados equipa- 
mentos, um digito numerico quando 
esta armazenado em uma varidvel nume- 
rica ocupa mais espa9o do que quando 
armazenado em uma variavel alfanum^- 
rica. 

Uma vez deFinido o registro deve-se 
entao dimensionar o arquivo, ou seja, 
quantos registros ir2o compor aquele ar- 
quivo. Por trabalhar inteiramente na 
memoria. o arquivo n2o deve ser muito 
grande, pois o espa90 ocupado pelo pro- 
grama deve respeitar a memdria dispo- 
nivel. Em nosso exemplo, dimensionar 
o arquivo com 100 registros seria um 
numero adequado para caber em qual- 
quer equipamento de pelo menos 16 
Kb. 

FORMAS DE ORGANIZAgAO 

Passaremos agora a organizar esse ar- 
quivo dentro do programa. Existem vd- 



organizaqAo 


► 

MATRIZ 


UM VETOR 


vArios vetores 


CAMPOS 


NOME 


A$(X.l) 


AS ( X) ( I TO 20) 


AS ( X ) 


PREFIXO 


AS ( X , 2 ) 


A$(X) (21 TO 24) 


BS ( X ) 


TELEFONE 


AS ( X , 3 ) 


AS (X) ( 25 TO 31) 


CS(X) 


RAMAL 


AS ( X , 4 ) 


AS ( X ) ( 32 TO 35) 


DS ( X ) 


TIPO 


AS ( X , 5) 


AS ( X) ( 36) 


ES(X) 


MARCA 


AS ( X , 6 ) 


AS ( X ) ( 37 ) 


FS ( X ) 



X = codigo do registro 

OBS.: Exemplos aplicados na linha SINCLAIR 
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ORGANIZE SEUS ARQUIVOS 

rias formas para isto. Citaremos tres 
delas: utilizando uma matriz, utilizan- 
do um vetor e utilizando vdrios veto- 
res. 

As formas de acesso aos campos, em 
cada metodo, estao apresentadas na fi- 
gura 3. 

Utilizando uma matriz - Esta for- 
ma de organizagao e do ponto de vis- 
ta logico a mais simples. No entanto po- 
derd se tomar, de acordo com os dados, 
a forma que desperdigara maior drea de 
memdria. Vejamos porque. Ao dimen- 
sionar uma matriz, informa-se o nome 
da variavel, o numero de linhas (que se- 
riam os registros) e o numero de colunas 
(que senam os campos). Em alguns equi- 
pamentos (Sinclair), informa-se ainda o 
numero de digitos dos campos. Um 
exemplo aplicado a linha Sinclair: DIM 
A$(100,6,20). Com isto, o computador 
ird reservar na memoria um espago de 
100 registros com seis campos de 20 po- 
sigOes, pois ndo se pode definir um ni- 
vel da matriz de forma varidvel. 

Este tipo de organizagSo £ mais in- 
dicado nos casos em que todos os cam- 
pos tenham o mesmo tamanho. 

Utilizando um vetor - Vetores sdo 
varidveis que permitem abrigar os dados 
em linhas. Ao contrdrio das matrizes 
que utilizam mais de um indice, o vetor 
s6 usa um unico indice. Ao dimensionar 
um vetor deve-se informar o numero de 



elementos (registros) que ele conterd. 
Na linha Sinclair informa-se tambem o 
numero de digitos de cada elemento. 
Exemplo aplicado na linha Sinclair: DIM 
A$(100,37). Com isto, o computador 
reservard espago para 100 linhas (regis- 
tros) com 37 posigOes (que £ o tamanho 
de cada registro). Este tipo de organiza- 
gao e mais indicado para o caso de equi- 
pamentos que possuem gravagSo de va- 
riaveis separadamente do programa (ZX 
Spectrum) e onde seja necessario gravar 
todo o arquivo de uma so vez. A desvan- 
tagem consiste em nao poder se referen- 
ciar diretamente a um campo, sem ter 
que extrai-lo do registro, o que aumenta 
o numero de instrug5es utilizadas no 
programa. 

Utilizando vdrios vetores - Esta tal- 
vez seja a forma mais prdtica de se or- 
ganizar um arquivo simulado na mem6- 
ria, pois nela, ao contrdrio das demais, 
as informag6es dos registros se distri- 
buem entre vdrios vetores. Cada vetor 
tratard de um campo de todos os regis- 
tros, ou seja, no exemplo agenda, tere- 
mos um vetor para nomes, outro para 
prefixos, etc. Os campos de determina- 
do registro terSo a mesma posiglo fisi- 
ca dentro dos vetores, dessa maneira, de- 
terminado Telefone do vetor de telefo- 
nes corresponded ao Nome do vetor de 
nomes de mesma posigSo. Ao dimensio- 



nar os vetores, deve-se informar em cada 
um o numero de registros que o arquivo 
possui. Se o equipamento for da linha 
Sinclair, e necessario ainda citar o tama- 
nho dos campos para cada vetor. Exem- 
plo: DIM A$(100, 20), DIM B$(100,4), 
DIM CS(100,7), DIM D$(100,4), DIM 
ES(100) e DIM FS(100). Este tipo de 
organizagSo se torna interessante para 
equipamentos que possuem instrug6es 
de gravagSo em cassete registro a regis- 
tro, como e o caso da linha TRS-80 ou 
para o caso dos equipamentos da linha 
ZX81, onde todas as varidveis sdo gra- 
vadas juntamente com o programa. 

Ate agora foi apresentado como criar 
um arquivo e algumas formas de organi- 
za 9 do que ele pode ter na memoria. 

Em um proximo artigo, mostraremos 
a aplica 9 do da teoria aqui apresentada 
atravds de um programa para controle 
de agenda telefonica, devidamente co- 
mentado. 

Vale a pena esperar... 

\t£ Id. 

m 



Josi Rafael Sommerfeld trabalha hi mais de 
cinco a nos com programagao de microcom- 
putadores e 6 autor do livro Aplicagdes Pes- 
soais para o TK85. que se encontra atualmen- 
re em fase de produgio grifica. 




PCPAQ- 

>r Compacto. totalmente 
o IBM PC/XT. Duas 
s de circuito. o PCPAQ reune 

iete- CPU. memdria tnicial 
iorde video 9". 2 drives de 

2 slots adicionais para 
muntcacOes de dados, t 
tilidade do pePAO^com um 

3 kg. pode ser levado para 
rnieoido por uma bolsa 



Consulte-nos 



almotadada 



C0ISA DE MACRO 
OS MICROS DA C0MPUTERWARE! 



Para quern pensa grande, a Computerware 
tem sempre os melhores pregos do 
mercado. com estoques suficientes para 
uma entrega imediata e condigfles de 
pagamento a sua escolha. 

Aldm de descontos especiais, a 
Computerware oferece assistencia tdcnica 
com profissionais altamente especializados, 
o melhor atendimento. contrato de 
manutengdo e uma inlimdade de vantagens, 
que fazem a nossa macro diferenga. 



★ ASSISTENCIA TECNICA ★ 
( 021 ) 262-1886 

► T6cnicos especializados na fabrics 
• Atendimento imediato 
• Contratos de manutencao 



UNITRON Ap II 

Computador pessoal. 
Microprocessador 
6502. 48K de 
[. memdriaRAM e 12 K 
de memoria ROM. 
tecladocom 
maiusculas e 
minusculas, Sconectores 
para expansdes. 

UNITRON T.l. 

Alem de reunir as caracterfsticas do APII. 
possui o Teclado Inteligente Umtron. que, 
diretamente. como em maquinas de 
escrever, fornece maiusculas / minusculas 
e acentuagSo da lingua poriuguesa 
Apresenta a caracterlstica especial de 
permitir a programagSo de cada tecla com 
comandos ou fungdes defimdos pelo 
usudrio. 

Na Computerware, encontram-se tambdm a i 
disposigao. todas as interfases / placas e 
perifdricos do Unitron. . Consulte-nos. 



VISITENOSSO SHOW ROOM 

v,S,T R i0 . infoshopping 
R ua do Catete, 3 « • 



Informatics 

Ltda. 



Rio - A v. Almirante Barroso, 91-11.° andar - Tel.: (021) 240-7294 
Rio - INFOSHOPPING - R. do Catete, 311 - (Show Room) 

Sao Paulo - Rua Jesuino Arruda, 797/Grupo 22 - Tel.: (01 1) 881-7446 
Curitiba - Av. Joao Gualberto, 1375 - 1? andar - Tel.: (041) 253-5433 








O SOFTWARE PARA O SEU MICRO 



Na compra de qualquer // 
produto Softline, II 
receba o informativo TILT 
com a descrigao de 
programas, dicas, novidades 
e informagoes tecnicas. 



F = pode ser gravedo era flta K7 
J = uso obdgatbrto de Joystick 
48 = requer 48 K de RAM 
64 = requer 64K de RAM 

JOGOS • APPLE II 

— CzS 80,00- 
Seootsge (F) enttospOT-queusas 
Sargon ,F ; .cgoaeodroi 
Drew Poker |F)-( 0 g 0 dt poker 
Blackjack (F) fOgode2I (cartas) 

Checks™ (F) iogo de damas 
Hsro rF) • rosgate os nvnero perdu** 

Robotron(F| destrua os robbsvvmigos 
Falcon* (F) pgotiooPnenu 
Nips Mission (F)-|0g0de pew* 

Fast Gammon (F) • fogo de gamio 
Othello (Ft ■ pgo de tabuteeo 
Lode Runner pegue os tesouros 
Olympic Oecatlon pgos oHmxiB 
Speer Rude* (F) de «po certopte 
Gorgon [Fi pgos dos Russos 
The Eliminator (F> compete espacal 
Night Crawlee (FT entente * centopeiss 
Space Egg* 1 FIJI • Cigar oos espacias 
Autobahn |F) • comda de can* 

The Asteroid Field |F) tipo aswbvdes 
Hard Hat Mack pengos na construgio 
Chopllfter (f/J) rosgate com nekedptero 
Sea Dragon prtote o suBmanno 
Spy's Demise If) »go de agerte secreto 
Star Blazer compete aeroo 
Viper IF) aumerte a cobra 
Cavern Creatures penetre na wroma 
Moon Patrol if) • patrulha km 
Mi Pac Man (F) a namorada do Psc Mar 
Mario Bros (f) MAno contra o gone 
Buck Rogers pnote sua n*ve em Zoom 
Ritfiii it aventiws nas wrom* perdwas 
Castle Wotfenstew engine cs razst* 

Beyond Castle Wortensteln mate M/der 
kitK decteo enigma da prtmideaneca 
Stellar 7 - comcate no espa£o em 3D 
Super Buny comdata as pragas 
Allen kmOusn iPj) logo tipo Arcade 
Out Po*t (F| «tenaaeesa(Joespac« 

Detender Bj) defender ongmal 
OogFigMIlf) confrontodeiatos 
SurTrek pmada nas estrelas 
Jellyfish priote im submamo 
Swashbuckler il dueo de espaoacn-ns 
Temple Apshal Centura no temp# 

Flight Simulator |F) - smuledor de *6o 
One on One iJMiasquete com 2 (Ogadorcs 
Spare Change ooupe para sutxr na nda 

-CzS 170,00 

kanteka perteitasimuiaGgoaekaratt entente vtnosadver 
sanoseMseteapmeesadoAkuna Conn ■ locawe e des- 
trua Wta em vanas lasts e com dderontes ocstaoJos 
Ghoftlxnters J) - monte iro empresa de ca(a aos Mntasras 
ecomecesuaavenwi 

Summer Games 'Mi gmodakdadescompletasdeatMsncL 

com as mais emocionantes coas ohmpicas, de vergo 

Summer Games II |M l ■ T novas modakdades ol«np<*s 

Winter Games iM) - 7 proves aOttieas de memo 

SFV v* 5PV dnertida a(go de espigo contra espJo Daseada 

nos personagens da rovsta MAD 

Droll tantisticapefsegu^aocomvanasiasesGrlficoshcr' 

ieise a^Joracvda 

Sargon III super yogo de <aorer 

Sky F« 1>W I • super sanuHOx de .do com ncnveis «ua(<bes 

de compete emv4nosntasGf#icos stfisticados 

F-15 Strike Eagle li/M) • ccrivei s»nula?4o de um cafe a yolD 

f 15 Eagte com contwe em 4nos rtea Grihcos comotaos 

Pinball Constructor Set L 1 ) - monte suas ordpnas mesas de 

•kflerama 

transrNaru r«sa*cmua.sahea[irrc(SaSaOnnai»ste< 

nvea pengos da terra de Orfcula 

Aichon |Ml - Mndsbco o(o de estetegia. ‘utn ia«r. com a> 

maciooegraiicos 

Si.M produr i»na ser.jaoio oa >or iknana 

Mas. cf the Sun-wentuagntea SoMbeoyocedeveactw 

ostesouos penaoos de jna artga cwfcra^o 

Kabul Spy ■ ervjMa se neste wner de esocrogem tenoo o AM- 

ganistao como cenjno 

Dark Crystal • ntntw grthca Daseada no Cnsa En 

canaoo comvjnoscenanos 

Flight Simulator II • pnote um Piper 181 toMmerte eoupadc 



ao*« oe reaisticos cenlnos Ouanoo «e< estner preparo 
do entente um comoate real 

Seven Cites ol Gold JMl ewrtin grata vec* aew aaiar 
o No>o Mirdo, retomanu com ouo e gldria para a Coroa 
The Mcrivei HOIK avenua grohea baseada na row sta do 
HLAK Voce deve dotar ew mcrivei ser de mtesgencia 
Capttam Goodnight ,>64| sua moslo t SAWlfl 0 MUMOO 
das ganas « terrivei Or M»ct ocakanoo e destrjwoo a a> ■ 
madoyirohral 

ReKue Raiders ik'Ml paotando jn rncoporo comande 
sus tropas. dinnte essa tansMi batatia 
SroceleeU) kite narotg como otamoso Bruce lee Mateos 
ncias e os kjtaooves de sund e :omo«e as maa eenves 
rases 

Mr DoU-iocteinmagcoiMdeveraorotegeroseuDcmaf 
de una terrnei praga 

Wero isCarmen SanOiego IMI seye um detetrve oue devera 

pronder o ciipado pelo route Viaye pelo nvdo coietando 
swstas 

UTIllTARIOS/APtICATIVOS - APPLE II 

- CzS 360,00 - 

visicaic piarite oe cakiAos 

vi slpiotAhsitrono gerador oe gritas 

VisWei • organador de atrvkSades 

VHihie gerwor ae banco de oa«s 

tertirm programa de conMKado na MOOEV 

Visicheduie r*sehnaree*aPERTiCf l V 

Apple LOGO rampaador 

Apple FORTRAh ICR.'Mi compaador 

Apple Mechanic ubktlno grata 

Alpha Plot geraoordegrttaa para uso comerc* 

GraFORTH ccmpuadcv 

locksmith SOf uBIdnodecdpa 

Hbdei teey KC3 jtatBno de cepa 

The Graphics Megioans ananador gr#ico 

The Graphics Solution • e«or « graheos 

Print Shop gerador de mpressos grthcos 

Magic W.ndco ll processador de totos 

- CzS 520,00 - 

Turbo PASCAL. ICPIM) comptador 
Taka I super ammaoca grtfico 

JOYSTICK ANAL0GICO • APPLE II 

- CzS 360.00- 

JOGOS - CP-300/500 

- CzS 80.00 - 

Flight Simulator (F) smuador de vdo 
Olympic Decation i F) egos onmexos 
Hoppy if)- salve osape 
Armored Patrol |F) patteha de tanpies 
lunar Landar (F) pouse nas crateras da ka 
Allen Defense iFi - proteya-se dos rvasoras 
Meteor Mission if) • ca^ada espac# 

Outhouse |f) proteya o seu banneiro 
Robot Atuck(f) desdua os rabbs 
Sea Dragon ;f) ■ pdote in submarmo 
Missile Auck (f) - aetena sua evade 
Scarf man |f) • pgo Dpo Rac Man 
Cavern (f) escape .wo da cavema 
Penetrator i R aprotundMe nas cavern* 

Stem Scort if)-deJenaa-sedafrotanmrga 

Assault ,R fuya dos ages vm^os 

Demon Seed (f) - acabe com os enormes passaros 

Cosmic Fightar (f) pgo npo mvasores 

Panlk |F) ■ escape oos robds 

PinOall |f) ■ See fVperama 

Crazy Painter (f) • prnte a tea, se puder 

Chicken (f) apde a gataha 

Galaiy invasion (f) Dpo irvasoras 

Sargon (f)p(od(udru 

A*rk> (F| aventura grtta 

Zorkl super avert ja 

Spook House m rti/a grabca 

Torlc Oumpvte aventura grata 

Adventur 4 **nti«s dderontes 

FueFuc programa pomogiahco 

Ghosta (F) cace os ranasmas de ira cxiade 

Rally complete otraptode in rally 

UTIUTARIOS APLICATIVOS - CP-500 
-CzS 450.00 - 

Creator gerador x programas BASIC 
i'ick pranaia de cKcjos 



Clone W coptador rappo de ftsccs 
ACCEL 34 comcWdor BASIC 
Bascom compsador BASIC 

- CzS 560.00 - 

HEWOOSBO 20 ssttme ooeraccna 
DOSPLDS 3S - s«iema operacionai 
Arranger il arpizvc de dretonos 
Profile ill* gerado de banco de dados 
SuperSCRiPSiT processador de teitos 
ZEUS super edtor assembler 
DisnOATA Super ftsassemtner 

-CzS 670.00- 

Prsducer gerador de programas 
Super utility 32 super uoadns 



JOGOS • SPECTRUM/TK 90X 

- CzS 70.00 - 

Fighter Pilot 1 48 1 £»ote n f 15 Eag* 

Flight Simulation ;48l sm uador de *4o 
TerrorOaktn 40 i48) 8(00 na terra peteda 
Iraderiaai comOron ea?4o no esoa(o 
Sty* (4^) anoe no abkWo e mate a Wua 
Tutankhamun i4B) e>pk « a rnba do rarafl 
Tornado ‘48) ■ peote o anio Cenino em 30 
Match A>nt 48] ranas-cc terns em 30 
Caveion |48| na aventura no castew 
ID Aatra -.48) sane os soidadas Agao em 3D 
Gataiy Attack (48) vinas tases no espago 
Ohm (48) iogo de laoroz wm vanos rvves 
AndroW 2 (48| mate os rabos Cenano em 30 
0eitaWmg 48) pkote n ca(a F16 em 30 
Mane Miner (*8) rocoha os ooptos da men 
Potty Painter (48) - preencha os quadrados 
Pool (48i fantasoco <ogo de smuca 
PflrfOt* (48i rocoW as pegas do computador 
Ptromanla 48] aoagip as ecindos 
The Pyramid |A8i aventnnaprtmide 
3D Tank Duel |48) super bataha de tarques 
30 Stantnke 1 48 guerra nas estrelas 
SonolBlagger 48) recofiaosobptos 
Psytron i48i • defenda sua base Anar em 3D 
Wheel* 48) peote namoto no subterrlneo 
Fall Guy |48) baseado no Mme DURO HA QuEDA 
Booga-Boo;4B) ayudeosaposanangoamocma 
Aroventuro |48| ■ mate oConoe Drac^a 
Huckback (48) aude o Coroxoa oe Sareoame 
Hamer Attack ,48) cotnb«e nas Mannas 
SPr v SPY (48] guerra oos esp-bei em 30 
Knight Loro (48' aventi/a no cestfki em 30 
Fred (48. despnae ps pengos da p»*m<je 
Famastic voyage 48i - entre no corpo hnano 
AkwH|48) baseado no senado AGLAA OE FOGO 
1994 48 1 jma mvssdo rp tutn 
Rmer Raid [48] perovra oe wi*5 n no pergoso 
Blade Alley (48) Oestfo espac* em 30 
Maziaci ,48i cace n tesom no labmo 
30 Ant Attach (48: - sake a moga das tongas 
Androids 48) aventura no labcnto 
Chtse Cake (48) sane os hnanos com sua nave 
ScuOadne |48) ■ rocoha as pteuas do mar 
Penetrator: 48) destrua o roate 
jetset Willy ;48i rocotia os obptos 
Full Throttle 148) comda de motos em 30 
Chequered Fiag 48‘ mantema a POLE POSIT lOh 
Worse at Sea (48] martema o r«no hutuaroo 
Trashman (48) aiude a marker a cnJade hmpa 
Aquaplane ;43i ima lancha rw mar de pengos 
lump Hailager (48) - pule os cteticulos 
Night Gunner |48) pkote in oevtartevo em 3D 
GhostOuiten (48! caga aos tantasmas 
Bund Alley (48! baseado no hirne TRON 
Beach Head (48) nvada ina ora* nmga protegidi 
Cteckie Eggs |48‘ rocotia os om em vpnas tases 
Atic Atac 30 148) peroorraum castes assoroftrado 
Mugsy (48) • ctwroie o snacato do cme 
Sabro Wuif (48) • aventea gri ta na horosta 
Autonomia (48] saga Oe w montaoy de camps 
Kokotoni wilt (48i - pengos em v*r*s eoocas 
Timanog 1 48) ■ aventin grgta na dade mw* 
kosmlc Kanga ,48) vuOe i/n cangiyu voador 
Pepsus 48] ■ destrua os aKngenas no labrrtp 
Special Delivery ‘48) ima tventin com o Papai Noel 
Uzy Jones (48) ertente vdnos wdeogames 
Wimpy (48) • ima wwtura bpo BixguefTime 
Decathlon 1 (48) 5 emooonarkes pn>as oSmpeas 
Decathlon 2 148) • mas 5 pn>» oOmpcas 



Strip Poker 1 48) dispa sua ncm*i openentt 

Esquimc Eddie 1 48) uma aventi/a na antanca 

Kong i48) ayude Mano a saUr a moga do gorka 

Tiutl Frutti (48) ncriver caga rogues sonoro 

Pinball 1 48] - smuiagAe de um pvtar 

Free: i48| destrui o nmigo com os cuBos de geio 

New Poker (48) cBssicoiogode poker 

Horace skiing (48) - esqu« montmna abauo 

Hungry Horace dvwtido Pac-Man 

Horace i Spates erterae as aramas 

PSSST sane sua manta oas pragas 

Cookie ayuoe o cwnneiro centra o Zf DO UXO 

Tran: Am pegueostrafOusnosELlA 

JetPac • construa os toguetes 

Spectres umiogodterartetipocomfrcome 

Escape sa* do Mbirwto sem ser morto 

Lab 3D sera que net s» dessa’ 

Ground Attack ege bpo Ftnetrator 
Meteors destrua os meteorose naves 
ComOate Zone batatva de lanoues em 30 
Aatro Blaster defenda o mpeno oo mimgo 
Arcadia sobronvanatravessiatatai 
Space intruder pgo bpo invaders 
Planetoids .iventirt espaoai com combate 
Seiddab Attack combataosmrasoresdacidade 
High Moon due« no veto oe«e 
invasion Force destrua a rave mae 
Sir Lancelot pegue os obyetos no castec 
MmarMaui defenda seus dentes das cgnes 
Galanans destrua as abeeias assassr* 

Monster in Hell cuvoado como inferno 
So*e Raiders opo nosoros do espago 

UTILITARIOS/APLICATIVOS - SPEaRUM/ 
TK90X 

-CzS 80.00- 

VU 30 ut*t»no grata lews em 30 
VUCeic pian-ma de cehteos 
VU File arqunqoe daoos para uso gerai 
Ultra Violet super asassenkket 
MCOOERII wmpkaoor BASIC 

- CzS 100.00 - 

SoftCALC plan** decilcutos com GRiFlCOS 
PASCAL 16 compkador 
Spec FORTH compkador 
ASSEMBLER super eddor assenwei 
Taworoii processador oe teito com M cokras 
The KEY • super copador Oe programas 
Paint Plus eortorde teas gratcas 
Scroen Machine Ub»tanc grata 



JOGOS ■ HOT BIT/EXPERT (MSX) 

- CzS 80.00 - 

Flight Simulator smmador Oe vto nizn Bcemg 737 
Polar Star guerra ebsmea em POLAR IV 30 
DON PAN dnertdoicgodeegio 
Jumping RaOOit ayude o codM a sxt o edifioo 
Pro)ectA pgocomincnvBSiiJtasdeKuigFu 
Haunted House escaie o prtdP assoirerado 
Tntck Boy 'nosKC pgo de hpoerama 
Cosmo trowte oefendese dos mrugos esoeoea 
30 BOMBERMAN etvnne o monstro 
DtzyBeii destrua as oedrasrotantts 
The»us saheapnncesapresanoabmnto 
PrtfaiHl averturas nas cavern* peronJas 
Hrpen Soorts 1-3 - sensacronas compebgbes 
Hiper Sports 2 m*a 3 eompebgb* 

HERO sate os mz»»os pros* nameia 
Moon Patrol patnkhe a superficie da lua 
La Mans tantbstca comda de carros 
Been Raider oefendaoe do ataque akerugena 
RlwRaid percorraiwnosemserdestruido 
Super Cobra defenda seu nekeoptero do vumgo 
Keystone Kapers • pranda o laiWo 
Frogger apdeosapoasahvasapePa 
Pyramid dewende * mstbn* da prtmide 
Oog fighter aerrubeosanbesrwmgos 
Shedom of the Bear - emocora-te »rtn grlta 
Binary Land ayude * namoradn a se enccvkrarom 
Norsemen defenda seu roex) corori « dragbes 
HunchBack sate a pmcesa apns«nada na tone 
Hot Shoe desigue o roate nuclear 
Decation *»nas rotea crows olimpic* 

Antartic Adventure etjkoro a Artgrtica 
Spook e Ladders estate dostemtesmonstros 
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CBBS: a informacao 
via computador 



Que tal transformar seu equipamento num dinamico 
quadro de avisos, onde voce possa trocar informagoes 
com outros usuarios e ate mesmo anunciar a venda ou 
compra de objetos? Conhega agora os CBBS e descubra 
essas e outras mil possibilidades do seu micro. 



JMM ■ m micro isolado hoje em dia 
I I n3o tem muito sentido”. Esta 
${ m afirma^ao e do operador 
Rizieri Maglio, do CBBS 
Sampa, mas, com certeza, ela tambem 
estava na mente de Randy Sues e Ward 
Christensen, dois americanos que, em 
1978, criaram em Chicago o primeiro 
CBBS ou Computer Bulletin Board 
System (sistema de quadro de avisos 
por computador). 

A id£ia surgiu da necessidade de ofe- 
recer um ponto central de chamadas 
para os membros de um clube de mi- 
cros, atrav^s do qual eles pudessem 
trocar informa<;5es, como num dina- 
mico quadro de avisos. 

Na epoca, o pre$o dos microcompu- 
tadores no mercado americano ja atrai'a 
um grande numero de usuarios, so que 
nem sempre o entusiasmado iniciante 
sabia o que fazer com seu micro depois 
da compra. Sendo assim, ligar-se a outros 
usuarios para troca de informa^Oes e 
dicas tdcnicas tornou-se uma 6tima 
op<;5o, o que levou os CBBS a uma 
grande populariza^ao. Pouco depois do 
CBBS de Sues e Christensen surgiu um 
Apple BBS, que foi seguido por outros 
como Forum -80, Access -80 e The 
Greene Machine. 

CONHECENDO OS CBBS 

At raves de um CBBS pode-se enviar 
mensagens de varias naturezas para 
usuarios; conversar on line com o ope- 
rador, utilizando o sistema para diri- 
mir duvidas; compartilhar experiences; 
vender ou trocar equipamentos e ate 



anunciar servigos, acabando por fazer 
novos amigos em meio a essas ativida- 
des. 0 mais interessante no CBBS e 
que, como em qualquer quadro de avi- 
sos comum, o usuario pode deixar 
(ou receber) mensagens para seus ami- 
gos, sem que haja a necessidade de 
contactd-los naquele instante. 

O usuario que deseja conectar-se 
a um BBS precisa ter a sua disposif3o 
um microcomputador; uma interface 
RS-232C; um modem e uma linha tele- 
fonica. Com isso, sem sair de casa, ele 
poder3 ter acesso a informa9oes que 
vao desde dicas tecnicas ate' a programa- 
9§o dos cinemas para o fim-de-semana. 

Outro detalhe importante e' que a 
grande maioria dos CBBS 6 gratuita, 
o usudrio s6 paga pela liga9§o telefoni- 
ca. 

Embora pare9a complicado e, para 
muitos, algo fora da realidade, criar 
um CBBS tambdm nao e tao dificil 
assim. Para quern pretende ser um 
Sysop (operador de sistema), o equipa- 
mento n3o e muito diferente: um micro 
(com no minimo 32 Kb de RAM); uma 
interface serial RS-232C; um modem 
(de preference com resposta automati- 
cal memoria magnetica (cassete ou dis- 
quete) e o software. 

Certamente, aqui no Brasil o maior 
problema esta na aquisto do progra- 
ma, pois ele n3o esta a venda no merca- 
do e nem todos tem conduces de de- 
senvolve-lo. Em contrapartida, aqueles 
que os possuem (desenvolvidos ou com- 
prados no exterior) nao os liberam para 
copia. Ja nos Estados Unidos, e grande 
a disponibilidade desses programas, que 



tanto podem ser comprados em lojas 
por pre90S acessiveis ou obtidos em 
bibliotecas de software. 

Com a prolifera9ao dos programas 
comerciais para CBBS nos EUA, muitas 
pessoas que utilizavam o micro apenas 
durante o dia ou hor3rio comercial 
passaram a deixar seu equipamento li- 
gado a um modem de resposta automa- 
tica durante o tempo ocioso. Hoje s3o 
mais de dois mil sistemas espalhados por 
todo o territ6rio norte- americano e 
cerca de 100 entre Canada, Inglaterra, 
Alemanha e outros paises, inclusive o 
Brasil. 

Devido ao grande numero de CBBS 
nos EUA, as vezes chegando a casa das 
centenas num mesmo estado, houve uma 
divisSo natural: a especializa93o. E mo- 
tivo de satisfa93o para um operador ve- 
rificar que os acessos ao seu sistema s3o 
em grande quantidade. Como passaram 
a existir muitos servifos disponiveis, 
cada operador tratou de tomar o seu 
CBBS mais atraente, oferecendo senrigos 
para 3reas especi'ficas. Atualmente tem- 
se sistemas especi'ficos por linhas de 
equipamento (TRS-80, Apple, IBM, 
etc.), linguagens e para grupos de 
interesses comuns: Astronomia; Medici- 
na; Jogos de Aventura; Fotografia, Fila- 
telia, Musica, Sexo, Homossexualismo, 
Humor, Bolsa de Valores etc. 

Existem ate CBBS nos EUA com 
aplica95es bastante peculiares como os 
especial izados em corrida de cavalos e 
ate em namoro(tipo “Namoro na TV”). 
No estado de Sao Francisco, por exem- 
plo, a propria policia tem um CBBS 
para quern quiser dar pistas de fugitivos 
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ou criminosos sem se identificar. 

No caso particular dos CBBS para li- 
nhas especi'ficas de equipamentos, nada 
impede que um Apple entre em um sis- 
tema para TRS-80. 0 que acontece, 
neste caso, e que o usuario de Apple nao 
vai achar muita graga em encontrar a 
maioria das mensagens destinadas aos 
usuarios de TRS-80. 

OS BBS BRASILEIROS 

No Brasil, o primeiro CBBS a apare- 
cer foi o do Pinto, no Rio de Janeiro, 
em abril de 1983. Paulo Sergio Pinto 
voltou entusiasmado de uma viagem aos 
Estados Unidos, onde fez contato com 
vdrios CBBS. Logo que chegou. conti- 
nuou acessando os sistemas americanos, 
mas, diante dos gastos com a conta 
telefonica, achou que seria melhor 
abrir seu prbprio sistema por aqui. 

Pouco depois do CBBS do Pinto, 
mais precisamente em junho de 83, 
Henrique Pechman colocou no ar o 
Forum -80 do Rio de Janeiro, que des- 
de ent3o funciona sem interrup93o, 
contando atualmente com mais de 
400 usuarios cadastrados. 

At raves da divulga93o e ajuda dos 
operadores, foram surgindo outros sis- 
temas e agora temos cinco atuando no 
pais: Forum -80 e LogiCbbs (no Rio); 
Sampa e ABBS Atari (em S3o Paulo); 
e o CBBS do Otto (em Curitiba). Foram 
extintos os CBBS do Amim e do Prado, 
e o CBBS do Pinto est3 temporariamen- 
te desativado. 

0 sistema mais recente 6 o LogiCbbs, 
criado por Jonas Roter, um garoto de 




Henrique Pechman operamlo o Forum -80. 



apenas 1 5 anos, no fim do ano passado. 
Segundo Jonas, seu ini'cio n3o foi muito 
diferente dos outros: “Comecei tudo 
por curti93o. Acho muito interessante 
poder trocar mensagens com pessoas 
por todo o pais.” Embora encare seu 
CBBS como divers3o, Jonas trata de sua 
manuten93o com muita seriedade e a- 
crescenta que pretende melhora-lo 
“sempre que for possi'vel”. 

Alem dos serv^os oferecidos normal- 
mente pelos CBBS, alguns apresentam 
inova96es, de acordo com a criativida- 
de do operador. No Sampa, por exem- 
plo, os operadores Rizieri Maglio e 
Rubens Paulo Silva estSo sempre progra- 
mando novas op9bes. Isto porque o 
software foi desenvolvido por eles 
mesmos, tomando-se possi'vel modifica- 
lo. No momento, eles est3o oferecendo, 
entre outros, servi90 despertador; dicas 



O contato 



Se voci pretende entrer em contato com 
CBBS de outros paises e nao se importa em 
gastar alguns cruzados (CzS 35 por 
minuto. para os EUA. e CzS 42. para a 
Europa / em ligapdes internacionais, a pri- 
meira providincia 4 obter os numeros desses 
CBBS. As melhores fontes sao alguns 
CBBS nacionais (Forum -80. por exemplo). 
que listam os numeros dos sistemas do exte- 
rior, aldm dos do Brasil, 4 claro. Voc6 tarn- 
b4m pode fazer uma assinatura de publica- 
pdes especi'ficas como " On-line Computer 
Telephone Directory Poster", criada e publi- 
cada por Jim Cambrom e considerada a 
mais importante do setor. Para assinatura 
anual ao prepo de USS 19.95. escreva para: 

J. A. Cambrom Company, Inc. 

P. O. Box 10005 
Kansas City, MO 64111 

Abaixo, damos a lista de alguns CBBS 
que voci poder a acessar. Lembramos que 
um problema comum com os BBS 4 que eles 
aparecem e desaparecem com certa fre- 
qiiSncia. Port an to. nem sempre 4 possi'vel 
saber se determinado sistema esti operando. 
temporariamente fora de operapao, fora do 
seu hor&rio ou simplesmente desativado. 

• Estados Unidos 

CBBS # 1. Chicago. Illinois. (312) 545-3086 



com CBBS 



Connect ion -80# , Centereach. New York, 
(516) 588 5836 

Berkley Conference Tree, (415) 538-3580 
PMS People's Message System, (714) 449-5689 
S-E-X! Kinky Kumputer. (415) 647-9524 
Astronomy, (212) 787 5520 
Adventure Board. (201) 376-8055 
Forum -80# 1, (816)861-7040 
NASA. (301) 344-9156 
IBM /PC. (703) 560-0979 

• Europa 

CBBS North-East, Inglaterra. (44) 02707- 
43555 

Mailbox-80. Inglaterra, (44) 051-428-8924 
Forum -80. Inglaterra. (44) 0908-566660 
Forum-80. Holanda. (21) 01-313-512533 
ABC -80. Suipa. (046) 010-468-190522 

Para quern pretende acessar os BBS lo- 
cals, ai vao os re/efones: 

CBBS do Otto - (041) 262-4743 
LogiCbbs - (021) 259-4413 
Forum -80 - (021) 287-8844 
Sampa (Oil) 853-6273 
ABBS Atari (Oil) 545 7557 

Em MICRO SISTEMAS nP 43 foi publi- 
cado o artigo CBBS, um quadro de avisos 
comunitSrio, de Ricardo Muricy, onde voci 
pode obter outras informapdes sob re os 
BBS. 



de teatro, cinema e shows; tarifas tele- 
fonicas; concursos temporaries (veja 
Se93o Bits “Concurso de Telas Grafi- 
cas”) e uma op95o gate, que permite 
ao usuario acessar outros CBBS paulis- 
tas at raves do proprio Sampa. 

Durante as festas de fim de ano, 
Rizieri e Rubens criaram um cartao 
de natal musicado e, pela ocasi3o do 
«nivers3rio de Sao Paulo, uma mensa- 
gem acompanhada da musica Sampa , 
de Caetano Veloso. Rizieri anuncia 
que tambem esta desenvolvendo um 
software de comunica9ao entre micros. 
S6 que, ao inves de coloc3-lo 3 disposi- 
95 o do usuario no banco de software, 
ele quer comercializ3-lo: “Pretendo 
cobrar um pre90 bem baixo por esse 
software, apenas para cobrir gastos com 
o sistema". 

“Alem das novidades no software, 
o Sampa est3 funcionando com um 
micro CP/M profissional, com capacida- 
de de armazenamento de 2 Mb e op93o 
para mais dois”. Rizieri tambem preten- 
de colocar em funcionamento, ainda 
no mes de abril, o Sistema Sampa Sul, 
que oferecera as mesmas op95es do sis- 
tema paulista. 

Apesar da diversidade de servhjos 
oferecida pelos CBBS nacionais, ainda 
n3o chegamos ao ponto de ter BBS 
especi'ficos, devido principalmente ao li- 
mitado numero de usudrios e de CBBS 
em funcionamento, o que ainda n3o le- 
vou a uma acirrada concorrencia que 
justifique um maior investimento em 
especializa93o. 

Na opiniSo de Antonio Carlos Pra- 
do, “a hora em que as aplica9&es comer- 
ciais come9arem a se ampliar (com mi- 
cros e modems a pre90s mais baixos) 
com sistemas nas universidades para os 
alunos se familiarizarem, poderemos 
chegar a um numero talvez atd seme- 
Ihante no dos EUA, hoje”. 

Certamente, os CBBS especi'ficos se- 
riam muito uteis a profissionais de a- 
reas como medica, de comunica93o, 
de estati'stca, etc. Mas isso exigiria 
uma manuten95o rigorosa de dados e, 
no momento, os CBBS particulars 
n3o tem conduces de faze-lo. Talvez, 
a melhor solu93o fosse a cria93o de BBS 
por institu^&es ligadas a cada atividade. 

OS OPERADORES 

O entusiasmo e, ate porque n3o di- 
zer, a paix3o s3o marcas registradas do 
operador. Cada um pode ter motivo 
particular, mas nenhum deles esconde 
seu fascinio pela teleinformatica: “E 
por paix3o que me dedico a isso. E uma 
coisa muito boa profissionalmente falan- 
do, pois sou programador; isso sem 
contar a quantidade de amigos que a 
gente faz. . . os horizontes ficam maio- 
res”, diz Rizieri. 

Para Marco Antonio Romano, opera- 
dor do ABBS Atari, tambem de Sao 

1 1 
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CBBS: A INFORMAQAO VI A COMPUTADOR 



blema faz com que ele se sinta muito pre- 
so , podendo levar ao fechamento do Sis- 
tema, como aconteceu com o CBBS 
do Prado: “Parei porque me consumia 
muito tempo. As pessoas queriam con- 
versar comigo e isso exigia minha pre- 
sen?a. Tinha de acordar mais cedo para 
responder as perguntas. . . Eu gostava de 
tudo automatico, mas o pessoal nSo 
achava gra 9 a, queria mesmo era conver- 
sar comigo”, diz Prado, ex-operador de 
um sistema paulista. 

Tambem e comum alguns CBBS es- 
tarem temporariamente fora do ar. £ 
bom lembrar que nem sempre o Sysop 
pode dedicar seu tempo integral ao sis- 
tema e que, muitas vezes, precisa de 
Paulo, o trabalho 6 visto com muita um Sysop nSo bastam equipamentos: seu equipamento para atividades profis- 

seriedade: “A partir do momento em antes de mais nada 6 preciso tempo e sionais. Hoje em dia, s 6 o Sampa e o Fo- 

que a gente se propde a abrir um CBBS for?a de vontade para fazer a manuten- rum-80, no Rio, funcionam 24 horas por 

e porque pretende ajudar os outros. 9 S 0 do sistema. dia. 

Meu sistema vai ser sempre gratuito e Atualmente, uma grande dificuldade 
sempre que puder melhora-lo, vou faze- dos operadores brasileiros e que os 

lo”. usuirios ainda nio se acostumaram a 

Na verdade, todo esse entusiasmo trocar mensagens entre si e exigem a Reportagem de Lla Bergman e Monica Alonso 

e mais que necessirio porque para ser presen^a constante do Sysop. Este pro- Texto final: Monica Alonso 




Dicas de um Sysop 



Se vocS pretende crier seu prdprio 
CBBS. vale prestar atengao em algumas 
dicas de quern tern experiSncia no assunto. 
Etas foram escritas por Henrique Pechman. 
um dos operadores do Forum ■ 80 do Rio de 
Janeiro. 

A lista abaixo servird de base para seu 
planejamento: 

1. Cadastro de usuSrios — permite saber 
quern chamou (e quando) o seu CBBS. Al- 
guns dados importantes: nome, enderego 
completo. tipo de computador. data da ulti- 
ma chamada. numero da mensagem Uda. 
n ive I de acesso e senha de acesso. 

2. Caixas Postais — permite enviar e receber 
mensagens entre usuSrios. Talvez a fungao 
mais importante de um CBBS. As mensagens 
podem ser classificadas como genSricas 
(podendo ser lidas por todos); comerciais 
(compra. venda etc.); pessoais (sd podem 
ser lidas pelo destinatSrio); Sysop (mensa- 
gens para operador do sistema) ou restritas 
(lidas apenas por um determ inado grupo). 

3. Bo let ins do sistema - permite que o 
operador do sistema coloque mensagens ou 
avisos para todos os usuSrios do CBBS. 

4. Upload /Download — permite receber e 
enviar programas. Existem virios protoco- 
ls de comunicagao em uso: Prompt, X- 
ON /X- OFF. XModem etc. 

5. Chamar o operador — permite uma co- 
mu nicagao on-line com o Sysop. 

6. Jogos — permite acesso a jogos on-line 
com o CBBS. 

Os programas podem ser escritos em 
qualquer lingua gem de alto m'vel (BASIC, 
FORTRAN. Pascal) com algumas sub- 
rotinas em linguagem de maquina. VocS 
pode optar por um unico programa residen- 
te o tempo todo na memdria, apresentando 
rapida resposta a qualquer opgao e tambSm 
minimizando o espago ocupado nos discos. 
Por outro lado, no caso da abordagem de 
um sistema modular, podem -se ter vdrios 
subprogramas que sao carregados para a 
memdria de acordo com a opgao do usua- 
rio. Esta tdcnica de programagao facilita a 
manutengao e criagao de novos mddulos. 
Como desvantagem. podemos citar o gasto 
de espago em disco; o tempo perdido para 



carregar cada mddulo; e a passagem de 
variiveis de um mddulo para outro. 

Mais um aspecto a ser considerado 4 o 
uso de sub- rotinas em linguagem de maqui- 
na. Estas rotinas sao para receber e transmi- 
ts atravSs da porta serial; conversao de mi- 
nuscula /maiuscula; formatagao do texto de 
acordo com o tamanho da tela do usuSrio; 
conversao de cddigos de controle de video; 
controle de fluxo de dados; controle de per- 
da de portadora etc. 

VocS deve ainda optar pela forma de 
organizagao do seu CBBS. Os mStodos 
mais comuns sao menus e pSginas. Os CBBS 
organizados em menus permitem que o 
usuSrio escolba a opgao desejada atravSs 
da letra correspondente. Os novos usuirios 
recebem menus mais detalhados do que os 
mais experientes. O mitodo de piginas pres- 
supde o CBBS dividido em blocos separados 
ou piginas de dados. Este mitodo 4 muito 
eficiente para usuirios ji experimentados 
porque permite um ripido acesso a fungao 
desejada. 

De qualquer forma, o mais importante a 
ser levado em conta no planejamento 4 
manter o sistema conversacional. 0 novo 
usuirio deve ser bem orientado sem que. 
no entanto, o sistema fique repetindo in- 
formagdes desnecessirias para os mais 
antigos. Uma boa ticnica 4 solicitar aos 
iniciantes que teclem < RETURN > ou < EN- 
TER > toda a vez que tiverem dificuldades. 
Desta forma, eles podem receber opgoes e 
informagdes detalhadas. 

CONSIDERACOES TtCNICAS 

Se vocS possui um sistema de disco, 
pode gravar dados e grandes quantidades 
de informagao em arquivos. Caso contririo, 
deveri utilizer outros mitodos para manter 
os dados do programa. Num sistema com 
discos. vocS deve decidir quais serao os 
arquivos. que informagdes serao gravadas e 
a forma de acesso. Um bom manuseio de 
arquivos random'icos permite que se ofere- 
gam melhores opgdes em cada aplicagao 
especi'fica. 



Sempre que do is modems sao conectados 
atravis de tinha telefonica. o sinal da porta- 
dora (CD) pode ser escutado na linha como 
um tom agudo. Este sinal permanece duran- 
te todo o tempo de conexao e permite a 
verificagao de uma queda de linha (intencio- 
nal ou acidental). A porta RS 232-C ofere- 
ce uma sirie de outos sinais que possibilitam 
detect ar todas as situagdes possiveis. Tudoo 
que vocS precisa fazer 4 checar os bits 
correspondentes, de acordo com os manuais 
de seu computador e modem. 

Um dos maiores problemas ao colocar 
um CBBS em funcionamento 4 manter um 
controle completo do sistema. VocS deve 
prever rotinas de recuperagao de erros de 
forma a manter o funcionamento em qual- 
quer caso. 

Chamamos de erros de telecomunicagdes 
aqueles causados diretamente da comunica- 
gao atravSs de linhas telefdnicas. Esses erros 
s3o detec tados pela interface RS 232-C 
atravSs de sinais especi'ficos. A convengao 
de ecoar os caracteres recebidos oferece ao 
usuSrio um feedback constante do que 4 
transmitido. permitindo a corregao imedia- 
ta. 

Erros operacionais ocorrem quando o 
seu computador acusa algum problems que 
interrompa a execugao do programa. VocS 
deve filtrar todas as informagdes recebidas 
para evitar o processamento de caracteres 
indesejdveis. 

Erros de programagao tambSm podem 
ocorrer se o programa original nao foi su- 
ficientemente testado em todas as suas 
possibilidades. Pode ainda ocorrer uma falha 
na inicializagao do sistema. VocS deve preca- 
ver -se contra os erros do usuSrio e tambSm 
contra seus prdprios. 

Na eventual fait a de energia elStrica, o 
sistema deve ser capaz de auto-inicializar-se 
quando esta 4 restabelecida, ficando nova- 
men te pronto para receber chamadas. Im- 
plements todas as rotinas de recuperagao 
possiveis. Nao hesite em tentar situagdes 
singu lares. A experiSncia e o bom-senso vao 
produzir rotinas personal izadas que justi- 
ficarao o esforgo gasto no desenvolvimento. 
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Agora voce podera colocar seu sistema 
de mensagens eletronicas (CBBS) no ar 
com o primeiro gerenciador totalmente 
desenvolvido no Brasil. 

Do empresario ao hobista, do 
telemarketing ao CBBS privado, o unico 
limite sera a sua imaginaqao. 

Com modulos totalmente personalizados, 
o DELTA dara a certeza do seu sistema ser 
o unico. 

O DELTA e compativel com qualquer 
maquina CP/M (*) e pode ser comparado 
com qualquer gerenciador importado. 

As principais caracteristicas sao: 

- Cadastramento de usuarios 
-MSGS pessoais (inviolaveis) 

-MSGS publicas 
-Anuncios classificados 

- Noticias 

- Protocolo xmodem 
-Tratamento de telas 

- Reaproveitamento de registros 

- Editor de alto m'vel 

- Manutengao local ou remota 

- Personalizagao do sistema 

... e tudo aquilo que puder imaginar e o 
hardware permitir. 




Informagdes no Sistema Sampa ; 24 horas 
por dia, 7 dias por semana, em 300 ou 
1200/75 bauds. Fone (01 1) 853-6273. 

(*) Em breve, tambem em MS/PC-DOS 

C) CP/M i marca regtstraOa da Digttal Research 





Desenvolvido num TK82C, este programa facilita e agiliza o controle 
e armazenamento de duplicatas e outros tipos de fichas cadastrais. 



Cadastro 



Gilson Roberto Viana 



E ste programa foi desenvolvido 
num TK82C (linha ZX81), e 
tern como finalidade facilitar e 
agilizar o armazenamento de fi- 
chas cadastrais atraves de comandos 
diretos, acionados pelo teclado. 

Criado totalmente em Assembler, 
tern, portanto, uma alta velocidade de 
processamento, com acelerados proces- 
ses de insersao, deleta^ao, leitura (entre 
outros), das fichas na memoria, tornan- 
do menos cansativa a tarefa de se digitar 
grandes quantidades de dados (tediosa 
em programas BASIC). 

S3o dois os metodos de armazena- 
mento utilizados neste programa: 



1 ?) Simples: insere caracteres simples 
(letras, sinais grdficos, etc.); 

2?) Especial: insere palavras-chaves, 
ou seja, copia na memdria palavras que, 
por terem uso freqiiente, foram preser- 
vadas numa linha do programa. 

Ao inserir as fichas, o programa ex- 
pande a regi§o das varidveis, no exato 
tamanho do texto digitado; ao contrario 
das versOes BASIC, que estabelecem urn 
tamanho padrSo para as fichas, reduzin- 
do a quantidade de dados a serem inse- 
ridos. 

Quando a memdria estiver repleta de 
fichas, a tela serd totalmente preenchi- 
da por asteriscos, indicando que ndo po- 



derd ser inserida mais nenhuma ficha. 

Seguindo o principio de que o pro- 
grama deve adaptar-se ao usudrio e ndo 
vice-versa, 6 que criei um comando ex- 
tra, para redefini^do do painel, permi- 
tindo que se possa mudd-lo de acordo 
com os propositos do usudrio. Original- 
mente, o painel foi definido para aten- 
der ds necessidades de pessoas que fa- 
zem controle de duplicatas, conforme 
mostra a figura 1. As varia^Oes possi- 
veis ficam a cargo dos usudrios. 

FUNCIONAMENTO 

Surgird, inicialmente, o nome do pro- 



IFbEss 

111 




Alephfiistemas 
e Metodos 
Andraus 
Informatica 
•Ciencia Moderna 
Computaqao 
•Compumix 



Os melhores especialistas, programas, 
equipamentos, formularios, manutenqao, 
cursos, livraria, videoclube. Tudo para Informatica 
com seguranqa e garantia, num so lugar. 

ss :: .se s. . s s: ». is 
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0 1.° Shopping de Informatica do Brasil. 



•Computer Shopping 
Moore 

• Computerware 
•C.R.f 

•Data Ribbon 

• Hamengo Video Club 

• "Mihros 



1 Racimec 
1 R&T Informatica 
'Trade Informatica 
'Unitel 

’ Videomatica 




Mo Largo do Machado Junto ao Metro. Aberto de 2. a a sabado. E5TACIOHAMEHTO PROPRIO. 




Figura 1 
- Tod os 
os itens 
estao em 
video 
inverso 
(GRA- 
PHICS). 



grama em letras garrafais, acompanhado 
de sua origem (Vianasoft com um ar 
professional), que desaparecera alguns 
segundos apos, para dar lugar ao painel. 
Na parte inferior da tela estard o menu, 
aguardando um comando. Se a tecla 
acionada for referente a algum coman- 
do, ele sera executado, caso contrario, 
o menu sera desativado. 

Pressione N/L para fazer a leitura do 
proximo cliente, o qual sera determina- 
do pelo comando L (ver comando L). 
Chegando ao fim do fichdrio, sera im- 
pressa a mensagem FIM, e, automat ica- 
mente, o endere 90 de leitura volta ao 
inicio. 



PALAVRAS-CHAVES 

A finalidade das palavras-chaves 6 
poupar memoria e tempo de digitado, 
aproveitando-se da repetitividade de cer- 
tas palavras (ruas, cidades, endere^os em 
geral. prefixos telefonicos etc.). 

0 uso de palavras-chaves £ feito pelo 
comando 5 - Insere. Atravds do controle 
SHIFT + 9 e colocado o cursor (* no 
modo GRAPHICS), indicando que a 
opera 9 do foi iniciada. Se voce digitar o 
cardter representative da palavra-chave 
desejada, ela serd impressa na tela. No 
caso de ser digitada uma palavra inexis- 
tente, o cursor volta ao estado normal 
de impressdo. 

DEFINigAO DE PALAVRAS-CHAVES 

Antes de digitar as palavras-chaves, 
fa 9 a uma tabela seguindo o exemplo da 
figura 2 . 

Na segunda coluna, coloque a lista 
das palavras que serao definidas como 
palavras- chaves (maximo 53). 

Na primeira coluna, serao colocados 
os caracteres representatives. Com auxi- 
lio do manual de seu micro, preencha a 
primeira coluna com os caracteres sim- 
ples, iniciando em aspas ( “ ) e termi- 
nando quando todas as palavras estive- 
rem representadas (a seqiiencia de colo- 
ca 9 do destes caracteres deve ser igual a 



do manual). Desta maneira, toma-se fa- 
cil identificar o cardter que representa 
uma determinada palavra-chave. 

DIGIT ANDO AS PALAVRAS-CHAVES 

As palavras-chaves devem ser digita- 
das na linha: 

2 REM COPY 

Edite a linha anterior do programa 
em BASIC com o comando SHIFT + 1, 
colocando o cursor entre os comandos 
REM e COPY e procedendo a digita 9 do. 

Digite as palavras-chaves na mesma 
ordem em que voce as colocou em sua 
tabela, tomando o cuidado de digitar 
a primeira letra de cada palavra-chave no 
modo GRAPHICS. Descreveremos, a 
seguir, os principals comandos: 

Comando 1 = COPY — Copia na 
impressora o que estiver na tela. 

Comando 2 = GRAVA - Assim que 
for acionado, grava uma c 6 pia do pro- 
grama em fita cassete; portanto, prepare 
o gravador antes de aciona-lo. 
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Figura 2 - As letras miruisculas devem ser in- 
seridas em modo GRAPHICS. 



Comando 3 = PAINEL - Usado para 
modificar o painel, de acordo com as ne- 
cessidades do usuario. Inicialmente, o 
primeiro carater do item “Cliente” serd 
mudado para um cardter simples, indi- 
cando onde serd colocado o carater digi- 
tado. Se for pressionada a tecla N/L (ou 
a modifica 93 o do item estiver comple- 
ta), a opera 9 §o muda para o prdximo 
item, voltando ao programa normal, se 
for o ultimo. Cuidado para ndo errar, 
pois nio ha controle para corre 9 ao, e 
voce teria de chamar o comando, nova- 
mente, para corrigir. 

Comando 4 = LEITURA - Oferece 
duas op 9 &es: 

1?) Atual: Coloca o cursor na linha 
superior do quadro (a direita) e aguarda 
a digita 9 §o da data desejada. Cuidado, 
pois se voce errar ndo podera corrigir, 
sendo ainda necessario executar o co- 
mando novamente. Este comando esta- 
belece a leitura, apenas, das fichas que 
tenham duplicatas com data de venci- 
mento igual d digitada; 

2?) Passado: Identica a primeira op- 
9 §o, com a diferen 9 a que estabelece a 



leitura das fichas com datas iguais ou 
menores a digitada (mostra as duplica- 
tas vencidas). 

OBS.: Se for pressionada a tecla N/L 
fica estabelecida a leitura de todos os 
clientes, indiscriminadamente. 

Comando 5 = INSERE — Oferece 
duas op 96 es: 

1*) Cliente: Usada para inserir clien- 
tes. Inicialmente, o cursor e colocado na 
primeira linha da tela (junto ao item cli- 
ente), aguardando a entrada de dados. 
Pode ser digitado qualquer carater sim- 
ples ou palavras-chaves. Se for pressiona- 
da a tecla N/L (ou se o item estiver com- 
pleto), o cursor passa para o prdximo 
item. 

A ficha estara completa depois que o 
cabe 9 alho estiver totalmente preenchi- 
do, pressione, ent2o, SHIFT + N/L para 
finalizar. 

2?) Duplicata: Usada para inserir du- 

f ilicatas, que, por sua vez, estarSo vincu- 
adas ao cliente que estiver impresso na 
tela (um cliente pode ter varias duplica- 
tas). A opera 92 o e similar a primeira op- 
920 , com a diferen 9 a que inicia na quin- 
ta linha (item duplicata). 

Este comando possui os seguintes 
controles: 

• SHIFT + 0: Deleta (apaga) o ultimo 
carater ou palavra-chave digitada; fazen- 
do o cursor voltar atras. Usado para cor- » 
re95es. 
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SOFTWARE PARA CP 400 E COMPATiVEIS I 



APLICATIVOS: Processador de Textos 

PPTEXTO c/ acentuapSo em portugues, Plani- 
Ihas Eletronicas. Bancos de Dados. Pacotes In- 
tegrados. 

UTILITARIOS: Editor/ Assembler. Expansor 
de Tela. Supertec. Compiladores, Copiadores, 
Etc. 

GRAFICOS: DUMP P-500. Esquemas Eletroni 
cos, Bjork Blocks. Comerciais, Graphicom e 
outros. 

LINGUAGENS: LOGO em portugues. PILOT 
para professores e uso didatico. PASCAL. 
C Basic. 

JOGOS: Muitos titulos para mencionar aquil 
Nossos cata logos mostram as telas dos jogos. 
Temos jogos exclusivos. Escolha melhor na 
Peek & Poke! 

SOFTWARE PARA CP 500 / CP 300 

— Processador de textos PPTEXT 500 DISCO 
c/ acentuacao 

— Planilha Eletronica CALC 300. Unica em Z- 
80 para versdo K-7. 

— Utilitarios copiadores para fita e disco. 

— Editor/ Assembler, monitor MACMON e tu- 
tor de linguagem de maquina Em fita ou disco. 
Aprenda Z-80! 

— Compilador ZBasic. Produz codigo objeto 
com rapidez. 

SOFTWARE PARA LINHA MSX 

Revendemos cartuchos e fitas d os melhores 
precos. Desenvo/vemos titulos proprios. Entre 
em contato. 

A PEEK ft POKE demonstra, garante e da su- 
porte permanente a seus programas. Venha 
conhece-los ou soiicite catalogo completo para 
o seu equipamento. 



PEEK & POKE Microcomputac»o « Comtrcio ItOa 
Av Brig Faria lima. 1664 Con/ 1102 
01452 S4o Paulo SP Fone I011I81J3277 
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DGT-AP 





O APPLE DA DIGITUS 



Listagem 2 



1 


=E^ 1526 


C8B8C-ESE: 


: 


=E7 COR 




10 


Cl-EAR 




20 


:im es 2 




30 


LET E-S - 1 


TO 2 s RETURN 


40 


SLOW 




50 


P8ND USB 


15022 


55 


Cl_5 




50 


GOTO 40 





• SHIFT + 9: Solicita palavra-chave. 
Inicialmente, muda o cursor para de- 
notar palavra-chave ( * no modo GRA- 
PHICS), aguardando que seja pressiona- 
do o carater representative da palavra- 
chave desejada. 

• N/L: Muda o cursor para o proxi- 
mo item. 

• SHIFT + N/L: Finaliza a ficha se o 
cabe^alho estiver preenchido (o cursor 
deve estar dentro do quadro), caso con- 
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trSrio, tern o mesmo efeito de N/L. 

OBS.: Se nlo for feita uma op 9 §o, e 
a tecla N/L for pressionada, o coman- 
do n§o serd executado, voltando ao pro- 
grama normal. 

Comando 6 = ELIMINA — Oferece 
duas op^Oes: 

1?) Cliente: Deleta a ficha do cliente 
que estiver na tela, juntamente com 
todas as suas duplicatas. 

2?) Duplicata: Deleta a duplicata que 
estiver impressa na tela. 

OBS.: Se n3o for feita uma op$3o, e 
a tecla N/L for pressionada, o comando 
n5o serd executado, voltando ao progra- 
ma normal. 

COMO UTILIZARO PROGRAMA 

Insira todos os clientes com suas res- 
pectivas duplicatas, gravando, a seguir, 
o programa (fichario) em fita cassete. 

Fa 9 a uma verifica^do do programa 
em periodos homogeneos (semanalmen- 
te, por exemplo), inserindo novas dupli- 
catas, eliminando aquelas que forem sal- 



dadas. Desta maneira, voce terd um per- 
feito controle de duplicatas e seus neg6- 
cios em dia. 

A DIGIT A^AO DO PROGRAMA 

Digite primeiro a listagem 1 . Ao digi- 
tar o bloco em Assembler (listagem 2) 
seja cuidadoso, para isso, utilize-se do 
Microbug e crie uma linha REM com 
1528 caracteres, digitando os codigos 
hexadecimais, a partir do enderego 
16514. 

Fa<;a uma c6pia em fita cassete, antes 
de executd-lo (para previnir eventuais er- 
ros de digitagdo, digitando SAVE “C” + 
N/L. 

Se tudo estiver correto, execute o 
programa com RUN e N/L, e. . . 

Bom trabalho. 

■ 



Gilson Roberto Viana 6 estudante do Curso 
de Engenharia Elitrica. na UFPR, e progra- 
mador autodidata hi dois anos. 
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A DIGITUS langa o DGT-AR um 
microcomputador pessoal totalmente 
compativel em hardware e software com 
a linha APPLE II PLUS e seus similares. 

O DGT-AP e um micro versatil, pois, alem 
de Ihe ser util no trabalho, voce podera 
tambem usa-lo no lazer e nos estudos. 

Devido ao grande numero de programas 
desenvolvidos para a linha APPLE, o DGT- 
AP tern ampla aplicagao tanto para as 
pequenas e medias empresas como para 
os executivos e os profissionais liberais. 
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Projetado para atender e acompanhar o 
desenvolvimento do usuario, o DGT-AP 
possui estrutura para aceitar futuras 
expansoes, crescendo de acordo com 
suas necessidades. 

O DGT-AP tern todas as caracteristicas 
basicas comuns a um micro da linha 
APPLE com a vantagem de um teclado 
numerico reduzido incorporado a CPU. 

Alem de todas as placas disponiveis para 
expansao, voce tern ainda a garantia da 
tecnologia DIGITUS. 

Conhega o DGT-AP nos enderegos abaixo 
e nos revendedores autorizados DIGITUS. 
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Conhega, neste artigo, os processos de gravagao, carregamento e 
verificagao no TK90X. Veja tambem como funciona a instrugao MERGE. 



Gravacao no TK90X 

M 



A! do Barduco Jr. e Pierluigi Piazzi 



TK90X possui um bom siste- 
ma de gravacao e leitura com 
recursos de verifica?§o e MER- 
GE. Existem cinco formas de 
gravagSo, quatro formas de carregamen- 
to, tres de verifica 9 So e um MERGE 
(junsao de programas). 

O TK90X, como a maioria dos mi- 
crocomputadores, armazena em fita o 
programa byte a byte. Nele, a velocida- 
de de grava^o e leitura 6 de 1200 bauds 
(quase 8 Kb por minuto). 

Para se familiarizar com todos esses 
processos, digite o programa da figura 1 
(extraido do livro Explorandoo TK90X, 
da Editora Aleph). Observe que nas li- 
nhas 50 e 60, a parte que executa o mo- 
vimento do ldpis usa IN ao invds de 
INKEY J. Desta forma, podemos fazer 
a leitura de vdrias teclas simultaneamen- 
te, o que n3o ocorre quando se utiliza 
INKEY $ . Assim, duas teclas juntas for- 
mam uma diagonal. Para deslocar o Id- 
pis, use as teclas Q, A, Z e S nas dire- 
90 es indicadas. Observe a figura 2. 

Digamos que voce, depois de brin- 
car um pouco com o programa lapis, 
queira desligar o computador. Para n5o 
ter que redigitar o programa toda vez 
que for utiliza-lo, vamos gravd-lo. 

SAVE (LOAD) 

Conecte o gravador com o cabo na 
posi 9 io MIC do computador e MIC do 
gravador. Digite SAVE “Lipis” e ligue 
o gravador no modo de grava 9 ao (REC). 
Assim, gravamos a parte do programa 
BASIC e os valores de suas varidveis. 
Mas sera que gravamos certo? Para resol- 
ver este outro problema, vamos verifi- 



10 COSUB 1000 
20 SOUND . 1 10 
30 IB Hi =i THEN OVER 1 
40 PLOT INK m«,:< y LET a=< 
LET b 

50 LE^ = ♦ i IN 55022=61 AND 
254'- IN 65022=62 «N0 X>1' 

60 LET yay.iIN 64510=62 OND - 
166' -’IN 6 52-6=6 1 AND y 1' 

-o =lot inuepse <»=2' ink ;••• 

. i . t 

30 LET 3 S = INK E < S 
90 IP 5* O' AND 3f =•'"•• THEN 
lE~ i n » =uAl a s 

100 I* 3 S = " 3" Then PRINT AT 0 n 
*6 PLASH 0 OUEP 1 INUEPSE 0 
INK 3 LET in =h *1- i 3 AND 

«l=2) PPINT AT 0,11*6 FLASH 1 0 

UEB 1 INUEPSE 0 INK 3. 

110 OUEP 0 GOTO 30 
1000 LET si2- LET y=37 LET in 
». =0 _ET ■ SO 

1010 PRINT BRIGHT 1, INK 4 , AT t 
12 'CUP50PE5 BRIGHT 0 INK 1 
AT 10 4,’NOPTE ... q' TAB IT 5U 
L ... Z PRINT AT 12.4, INK 1 
" «-E ST= ... = TAE IT 0E3TE ... 
3 " 

1020 PRINT PRINT PRINT BRIGH 
T 1 Inb 4 DO IS CUP50RE5 AC M 
ESHO TEMPO FORMAM UMA DIA 

GOnAl 

1030 PRINT AT ,3 FLASH 1, INK 
1 * APEPTE OUAlOUER TEClA 

1040 IF IN-E. * "* THEN GOTO 104 

0 

1050 I F INK, Ev S = ' THEN GOTO 1050 
1060 CL3 

10~O PRINT c lA5h 1 INK 3. RARER 
9 PINTA -LASH 0. MOVE APAG 
A" 

1080 PLOT O 167 DRAU 255.0 
1090 RETURN 



Figura 1 



car a grava 9 §o usando a instru 9 do VERI- 
FY. 

Rebobine a fita ate o inicio do pro- 
grama e conecte o gravador com o cabo 
nas pos^Oes EAR-EAR. Digite, entdo, 
VERIFY “Ldpis” (lembre-se que o ti- 
tulo do programa deve ter, no maximo 
dez caracteres). Ligue o gravador (no 
PLAY). Apos as bordas ficarem com 
barras vermelhas e azuis vibrando. deve- 





Figura 2 


1 


T 



ra aparecer o nome do programa no qua- 
dro central. A seguir, elas voltardo a vi- 
brar e no fim aparecerd a mensagem 0 
EXECUTADO 0:1. 

Caso ndo haja essa mensagem, houve 
grava 9 do ou leitura errada. Neste caso, 
execute novamente a opera 9 do, alte- 
rando o volume e verificando se os agu- 
dos estdo no mdximo. Notando que ndo 
e um erro de carregamento, grave o pro- 
grama novamente e repita a opera 9 do. 
Se o erro ainda persistir, limpe o cabe 90 - 
te, troque de fita e aiuste o azimute (ve- 
ja MS n? 47, pdg. 70). 

A grava 9 do agora esta boa, mas como 
carregar? Digite NEW para limpar a me- 
moria (lembre-se: NEW apaga o progra- 
ma e tudo o que estiver na memoria ate 
a Ramtop). Mantenha o cabo na posi 9 ao 
EAR-EAR e fa 9 a LOAD “Lapis”. 0 mi- 
cro ira proceder como no VERIFY, po- 
rem, ao inves de comparar os dados, ele 
os carregard na RAM. Ao final da opera- 
9 do, deverd aparecer 0 Executado 0:1. 

Para gravarmos com Auto Start, ou 
seja, gravarmos um programa que rodara 
ap 6 s o carregamento a partir de uma li- 
nha pre-determinada, fazemos o SAVE 
“Nome” LINE X, onde X e a linha do 
programa que queremos que seja execu- 
tada ap 6 s a carga. Entdo, fa 9 a SAVE 
“Ldpis” UNE 10. 




SAVE "N" 


- 


Grava em fita cassete, com nome N, o programa 
em BASIC. 


SAVE "N” LINE X 


* 


Grava como o anterior, mas com Auto-Start a 
partir da linha X. 


SAVE "N" CODE X,B 


*- 


Grava em fita cassete a partir do enderego X 
tantos bytes quanto indicar B. 


SAVE “N" SCREENS 


- 


Grava a tela em fita cassete. 


SAVE "N” DATA * () 




Grava em fita cassete os valores da variavel X, 
desde que esta ja esteja dimensionada (X pode 
ser uma variavel alfanumerica ou numerical. 


LOAD "N" 




Carrega na memoria o programa de nome N, que 
deve estar no cassete e ser em BASIC. 


LOAD "" 


* 


Carrega na memoria o primeiro programa em BASIC 
que encontrar. 


LOAD "N“ CODE X.B 




Carrega na memoria o programa N, que deve ter 
sido gravado na forma de bytes (Save. . .Code) . 
a partir do enderego X tantos bytes quanto indi 
car B . 


LOAD "" CODE 


* 


Carrega como o anterior, mas neste caso, nao e 
especificado N,X e B. 


LOAD "N" SCREENS 


- 


Carrega na memoria a tela de nome N. 


LOAD "" SCREENS 


- 


Carrega na memoria a primeira tela que encontrar. 
Carrega na memoria os valores da variavel X. 


LOAD "N” DATA X () 


- 


LOAD "" DATA X () 


* 


Carrega na memoria 0 primeiro programa que forne 
ga os valores de X. 


VERIFY 




Verifies se o programa de nome N, confere com o 
que esta na memoria. 


VERIFY "" 


“ 


Verifies se 0 programa contido na memoria confere 
com 0 do cassete. 


VERIFY "N" CODE 


* 


Verifies se os bytes gravados com nome N, conferem 
com os contidos na memoria. 


VERIFY CODE 


* 


Verifica se os bytes contidos na memoria conferem 
com os do cassete. 


VERIFY "N" DATA X () 


“ 


Verifica se os valores da variavel gravada com 
nome N conferem com os da memoria. 


VERIFY "" DATA X () 




Verifica se os valores da variavel X conferem com 
os do cassete. 


MERGE "• 


- 


Executa 0 MERGE de um programa em BASIC. 


MERGE "N” 




Executa 0 MERGE do programa de nome N, "emendando- 
0“ com 0 que esta na memoria. 



Figura 6 



Ndo se esque 9 a: nas instru 9 oes SAVE, 
devemos conectar o cabo M1C-MIC, e 
nas instru 96 es LOAD, EAR-EAR. Para 
verificarmos e carregarmos programas 
deste tipo, digitamos VERIFY “Ldpis" 
e “LOAD “Ldpis”. Ndo e possivel digi- 
tar VERIFY “Ldpis” LINE 10 e/ou 
LOAD “Ldpis” LINE 10. 

Digite NEW, rebobine a fita e fa 9 a 
LOAD"”. Quando ndo indicarmos o 
nome do programa, o micro carregard 
o primeiro que encontrar. 

SAVE (LOAD) CODE 

Agora que voce jd gravou o progra- 
ma, crie um desenho que fa 9 a o melhor 
uso dele. Digamos que voce queira guar- 
dd-lo para mostrar aos amigos. Hd duas 
formas de fazer isso: a primeira 6 atra- 
vds do comando SAVE... CODE. Para 
gravar, digite BREAK e, a seguir, o co- 
mando SAVE “Ldpis” CODE 16384, 
6912 (16384 e o endere 90 do inicio da 
D-FILE, ou seja, do local onde o equipa- 
mento guarda a tela, e 6912 6 o numero 
de bytes ocupados pela tela). 

Quando gravamos a tela em fita ndo 
podemos verificar diretamente se ela foi 
gravada corretamente ou ndo, pois ao 
jogar o nome do programa no video, ele 
altera os bytes da tela, que passam a ndo 
conferir com os do cassete. Digite 
BREAK, CLS e fa 9 a LOAD “Ldpis” 
CODE. 

Observe que ndo indicamos o endere- 
90 inicial e nem o numero de bytes, pois 
o programa jd traz consigo estas infor- 
ma 90 es. (Note como a montagem da 
tela e esquisita, tipo persiana). 

0 SAVE... CODE serve para gravar- 
mos qualquer seqiiencia de dados (by- 
tes) guardados em endere 90 s especifi- 
cos, sendo possivel com o LOAD... 
CODE carregd-los em outro endere 90 
(ou no mesmo). Digite UDG 2 e rede- 
fina alguns caracteres. Fa 9 a SAVE ‘Tes- 
te” CODE USR “a”, 168 (USR “a” 6 




o endereco onde come 9 a a tabela de 
caracteres). Depois, verifique se foi gra- 
vado corretamente, desligue 0 computa- 
dor, digite novamente UDG 2, rebobine 
a fita e digite LOAD” ” CODE. Agora, 
acabamos de carregar os caracteres es- 
peciais do TK90X (UDGs), jd redefini- 
dos por voce. 

Outro jeito de se gravar a tela e fa- 
zendo SAVE “Ldpis” SCREENS (Cui- 
dado! Ndo hd VERIFY “Ldpis” SCRE- 
ENS). 0 SAVE. . SCREENS i simnles- 
mente um resumo do SAVE... CODE 
16384,6912 (que e a regido da tela). 

Existe tambem um meio de s 6 gra- 
varmos os valores de uma variavel desde 
que esta seja definida (ex.: DIM A (10, 
10)). Para isso, usamos o SAVE “nome 
do arquivo” DATA X ( ), onde X pode 
ser uma varidvel numdrica ou alfanume- 
rica. Digite o programinha da figura 3. 
Terminado o programa, digite SAVE 
“AS” DATA AS( ) e depois fa 9 a VE- 
RIFY “ ” DATA AS ( ) . Se a grava 9 do 
estiver correta, digite NEW e depois o 
programinha da figura 4. Ele deverd car- 
regar a varidvel AS na sua memoria. Se 
ndo houver um dimensionamento da va- 
ridvel (para grava 9 do), ele acusara o erro 
2. 

MERGE 

O TK90X possui ainda o MERGE, 
uma instru 9 do que nos permite sobre- 
por programas e funciona da seguinte 
forma: ao carregar o programa, ele vai 
inserindo nos endere 90 S respectivos as 
novas linhas, sem alterar as demais (o 
MERGE s 6 atua na drea do programa 
BASIC). Digite as rotinas da figura 5 e. 



no fim, grave cada uma delas com SAVE 
“UM” e SAVE “DOIS”. 

Carregue o primeiro programa usan- 
do LOAD “UM” e depois, para carregar 
o segundo, digite MERGE “DOIS”. Ter- 
minando a execu 9 do desta instru 9 do, ob- 
serve a linha 30 (veja o que prevaleceu), 
rebobine a fita para carregarmos o pri- 
meiro programa e digite MERGE “UM”. 

A linha 30 foi alterada em ambos os 
casos, porque os dois programas pos- 
suiam linhas 30 diferentes e, no MER- 
GE, a que prevaleceu 6 a do liltimo pro- 
grama a ser carregado. As linhas ocupam 
sempre uma mesma posi 9 do seqiiencial 
na memdria, onde MERGE as carrega. 

Resumindo: o SAVE salva o progra- 
ma e as varidveis em fita; LOAD carre- 
ga o programa da fita no computador; 
VERIFY compara se os bytes que fo- 
ram gravados no cassete conferem com 
os que o computador possui; e MERGE 
carrega um programa no computador, 
sobrepondo-o ao que jd estd na sua me- 
m 6 ria. 

Para digerir todas as infom^Ses 
dadas atd aqui, seria conveniente que 
voce estudasse a tabela da figura 6 . 



A Ido Barduco Jr. estd cursando a primeira s4- 
rie do 2? grau e 4 autodidata em BASIC e As- 
sembler. Possui um TK85 e um TK90X. 

Pierluigi Piazzi 4 formado em Quimica e Fi'si- 
ca pela USP. Foi professor do Cur so Anglo 
Vestibulares e j4 editou a revista "Microhob- 
by". F autor de vdrios livros e atualmente diri- 
ge a Aleph Publicagoes, responsdvel por mui- 
tos sucessos na drea editorial, dada a sua ori- 
entapao diddtica. 
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O aperfeigoamento dos metodos de sintese de voz tern sido notavel 
nos ultimos tempos. Veja neste artigo o que e a voz sintetizada, 
algumas tecnicas existentes e os pros e contras de cada uma delas. 



Smtese da voz 

Frederico Mel on i. 



N o decorrer dos ultimos anos, a 
tecnologia da smtese de voz 
tern se tornado uma das areas 
de maior crescimento. Isso por- 
que as pesquisas de vdrias d^cadas est2o 
agora alcan^ando um grau de maturida- 
de, e o rapido crescimento no campo 
LSI permite uma integra93o cada vez 
maior das fun^Oes digitais, reduzindo os 
custos de produ93o. 

Em 1978, a Texas Instrumentos foi a 
primeira a introduzir um sintetizador de 
voz acompanhado de uma ROM de alta 
densidade para seu produto de consu- 
mo, o Speak ScSpell, que teve um custo 
de processamento de voz drasticamente 
reduzido. Essa tecnologia, devido ao ca- 
samento de processamento da voz e a 
tecnologia dos circuitos integrados, vai 
ocupar um lugar muito importante em 
nossa vida diiria, com aplica96es varian- 
do desde brinquedos ate fomos que fa- 
lam. 

Este artigo visa dar um entendimento 
bdsico do que 6 a voz sintetizada. Para 
isto, iremos primeiro discutir vdrios me- 
todos de produ9§o sint^tica de voz e 
como cada um se relaciona com a for- 
ma93o da voz humana, salientando suas 
vantagens e desvantagens. 

PRODUCAO DA VOZ HUMANA 

A voz humana 6 produzida da seguin- 
te maneira: primeiro, a mensagem e pen- 
sada e transformada em sinais neurais. 
A seguir, geram-se os sons acusticos cor- 
respondentes a estes. sinais e controla-se 
o mecanismo de articula93o para produ- 
zir as formas de onda. 




Figura 1 



O proposito deste nosso artigo e. 
primeiro. discutir como a fala e produ- 
zida pelo mecanismo articulatorio e. en- 
t 3 o, debater as caracteristicas das for- 
mas de ondas resultantes. Este conhe- 
cimento e especialmente util para o 
entendimento dos modelos digitais. 
para os sinais de voz, e de como eles 
podem ser processados e comprimidos 
por varias tecnicas de codifica9ao. 

A figura 1 mostra um diagrama do 
trato vocal, apresentando a localiza9ao 
das cavidades oral e nasal, com seus va- 
rios componentes. 

A voz humana 6 produzida no trato 
vocal, o qual consiste de pulm6es, tra- 
queia, laringe, cavidades oral e nasal. 
Outros elementos importantes s3o a lin- 



gua, os dentes e os ldbios. Os pulm5es 
atuam primariamente como uma fonte 
de ar que passa atraves da traqueia, das 
cordas vocais e das cavidades oral ou na- 
sal. As cordas vocais s3o finas tiras de 
musculos que podem ficar esticadas, 
pela passagem do ar, ou mesmo relaxa- 
das. 

Tres componentes s3o necessarios 
para se produzir a voz humana: primei- 
ro, um fluxo de ar 6 necessdrio para se 
colocar em movimento o trato vocal; de- 
pois, um processo de fona92o na laringe 
(ou cordas vocais) para modificar esse 
fluxo; e, por ultimo, uma articula92o 
precisa ocorrer para que diferentes sons 
sejam produzidos pelo fluxo de ar. 0 
resultado destas a9©es s2o tres classes 
distintas de sons da voz: sonoros, sur- 
dos e explosivos. Classificados como so- 
noros s3o os sons produzidos quando as 
cordas vocais estSo tensionadas pela pas- 
sagem do fluxo de ar, gerando impulsos 
quase periddicos que v2o excitar o trato 
vocal (por exemplo, /i/ na palavra sino). 
Por outro lado, se a cordas vocais est2o 
relaxadas, e o movimento articulatorio 
causa uma obstru9§o 2 passagem do ar, 
este se toma turbulento no ponto de 
articula92o, resultando num tipo de som 
parecido com um chiado (como o / s/ da 
palavra sino). 0 som explosivo 6 criado 
quando se forma uma obstnujSo ao flu- 
xo de ar, gerando uma pressSo que, 
uando liberada repentinamente, pro- 
uz este tipo de som (isto acontece com 
Ipl na palavra pai). 

Esta 6 uma descr^So apenas superfi- 
cial da produ92o da voz, pois, quando 
um som e pronunciado, existem cente- 
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nas de varia95es menores que podem 
ocorrer na sua produ92o. Os sons basi- 
cos, utilizados na forma93o de uma lin- 
gua, s2o chamados fonemas. Entretanto, 
um mesmo fonema pode vir a ter sons 
diferentes, dependendo do contexto no 
qual ele esta sendo empregado. Um 
exemplo e o caso do /p/ nas palavras es- 
pada e pai. Esta diferen9a do mesmo fo- 
nema e o que se chama alofone. Os alo- 
fones s3o representa95es sonoras mais 
apuradas do que os fonemas. 

PROCESSAMENTO DIGITAL DA VOZ 

Um dos fatores que mais contribuiu 
para o rdpido crescimento da tecnologia 
da sintese da voz foi a integra93o de 
todas as fun90es necessdrias para se ge- 
rar a voz em um unico chip. Entretanto, 
seus sinais s3o tipicamente analogicos. 
Como, ent2o, eles s3o convertidos para 
que possam ser processados pelos com- 
putadores digitais? 

Um sinal analogico d convertido para 
sinal digital empregando-se uma tdcnica 
conhecida por amostragem. Como pode 
ser visto na figura 2, um sinal pode ser 
amostrado periodicamente de maneira 
tal que, retendo-se somente amostras di- 



gitais, e possivel reconstruir o sinal origi- 
nal. Isto 6 conhecido como o teorema 
da amostragem de Whittaker Shannon, o 
qual diz que a taxa de amostragem re- 
querida para uma exata reconstru92o do 
sinal original deve ser, no mi'nimo, duas 
vezes maior que a frequencia do sinal 
original. Por exemplo, se o componente 
de maior freqiiencia de um sinal for de 
4KHZ, o sinal deve ser amostrado a uma 
taxa minima de 8KHZ. Esta taxa mini- 
ma de amostragem e tambem chamada 
de taxa Nyquist do sinal. 

Os sinais digitais s2o mais atrativos 
que os analdgicos nos seguintes aspec- 
tos: 

Precisao e confian9a - devido ao proces- 
so de quantiza9§o nos sinais digitais, eles 
s3o menos sensiveis a ruidos na trans- 
missio do que sinais analogicos. Permi- 
tem tambem a detec93o de erros e a re- 
cupera92o de informa9<5es. 

Flexibflidade e processamento - com o 
avan90 dos computadores e micropro- 
cessadores de alta velocidade, os sinais 
digitais podem ser processados em tem- 
po real e com grande flexibilidade. 

Taxa de dados - e normalmente propor- 
cional ao custo. 0 processamento digital 
da voz permite remover informa96es re- 
dundantes do sinal analogico e, assim, 
reduzir a taxa de dados. 

Qualidade - o processamento digital 
pode remover ruidos e ecos do sinal de 
voz, aumentando dessa maneira sua qua- 
lidade 

Custo do hardware - a tecnologia LSI 
reduziu drasticamente os custos dos pro- 
cessadores e memdrias digitais, tornan- 
do-os de f2cil acesso aos consumidores. 

Uma vez que os sinais estejam amos- 
trados e digitalizados, eles podem ser 
transmitidos diretamente atraves de um 
canal de comunica9ao ou armazenados 
para uso posterior. Para aumentar a efi- 
ciencia da transmissSo ou reduzir o ta- 
manho da memoria no armazenamento, 
um processamento digital 6 normalmen- 
te feito para comprimir o sinal e reduzir 
a taxa de dados. Isso e chamado de codi- 



fica9§o da voz. A seguir, apresentaremos 
algumas das tecnicas mais usuais. 

TfiCNICAS DE 
CODIFICAgAO DA VOZ 

Existem varias tecnicas disponiveis 
para a codifica9ao da voz. Elas variam 
desde tecnicas de transforma92o direta, 
ou seja, uma simples conversao digital 
da voz, como o PCM, ate complexos 
modelos matematicos, como a tecnica 
LPC (codigo de previsSo linear). Para 
o proposito de discussSo, essas tecnicas 
serao divididas em duas categorias: 
codifica92o de formas de onda e codili- 
ca9<Io dc parametro. 

A figura 3 mostra algumas das tuni- 
cas mais comuns dentro de cada catego- 
ry. A taxa de transmissSo de dados tam- 
b^m esti apresentada para dar uma id£ia 
relativa ao custo e complexidade de 
cada tecnica. 

Agora, daremos uma vis§o geral de 
cada tecnica isoladamente e uma com- 
para92o entre elas e as outras. Primeiro, 
ser2o discutidas as tecnicas de codifica- 
9§o de parametros. Assim, o propdsito 
desta apresenta92o nlo 6 entrar em gran- 
des detalhes, mas dar apenas uma vis2o 
geral e conhecimentos necessdrios para 
se ter um melhor entendimento da tec- 
nologia de sintese da voz. A enfase 
maior, na apresenta92o que se segue, 
ser2 sobre as tecnicas de codifica92o da 
voz sintdtica. Entretanto, a parte de 
andlise da codifica92o da voz tern gran- 
de importancia para o entendimento de 
outras tecnicas, como a de reconheci- 
mento da voz por computador. 

CODIFICAgAO DE FORMAS 
DEONDA 

Este termo foi escolhido para este 
conjunto de tecnicas porque e o que me- 
lhor descreve como a informa95o estd 
sendo codificada. Em cada um dos siste- 
mas descritos, o sinal de voz sintetizado 
e produzido a partir de informa9des que 
tentam reproduzir a forma de onda ori- 
ginal. A tecnica de anilise pode descre- 
ver a amplitude de cada ponto de dados 
que foi amostrado, como em Modula9ao 
por Cddigos de Pulsos (PCM), ou pode 
descrever cada ponto amostrado em re- 
13920 a um outro anterior, como em Mo- 
dula92o Delta, ou ainda usar a combina- 
920 de vdrias tecnicas de compress3o, 
como na tecnica desenvolvida por Fo- 
rest Mozer. 

PCM 

O uso do PCM e a tecnica mais sim- 
ples de se implementar e se entender. 

O primeiro passo e converter o sinal de 
voz em informa92o digital, usando um 
conversor A/D. Uma vez na forma digi- B 
tal, o sinal pode ser guardado em memo- 
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1.1 - Pulse Code Modulation (PCM) 
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Figura 4 - Canal de voz por PCM 



ria e ouvido novamente, usando um con- 
versor D/A, um filtro passa-baixa, um 
amplificador e um alto-falante. A figura 
4 mostra um diagrama em blocos sim- 
plificado de um canal de voz usando 
PCM. 

A vantagem deste m^todo e a sua 
simplicidade na an31ise, algoritmos e 
hardware. Ambos os conversores s3o fa- 
cilmente conseguidos e relativamente 
baratos. 0 problema 6 a quantidade de 
membria requerida. 

Neste ponto, e conveniente apresen- 
tar alguns conceitos bdsicos, envolven- 
do taxa de transmiss3o de dados ( data 
rate). Para uma adequada reprodu^o da 
voz, a resposta de freqiiencia do sistema 
deve ser tal que as frequences abaixo de 
4KHZ sejam reproduzidas e as acima se- 
jam rejeitadas. Em outras palavras, o sis- 
tema deve utilizar um filtro passa-baixa 
de 4 KHZ. Este valor ser3 adotado para 
uma melhor compara93o entre as diver- 
sas tdcnicas. Como jd foi visto anterior- 
mente, usando-se 4KHZ, a freqiiencia 
minima de amostragem sera 8KHZ. 0 
numero de bits escolhido, para represen- 
tar cada amostra de voz, ird variar entre 
8 e 12, dependendo da qualidade que se 
deseja alcan?ar. A taxa de transmiss5o 
resultante seria de 64000 a 96000 bits 
por segundo (BPS). Em outras palavras, 
um segundo de fala iria requerer de 
64000 a 96000 bits de membria. 



CODIFICABAO DE PARAMETROS 

No mdtodo codifica?ao de parame- 
tros, outras caracteristicas da voz, aldm 
da forma de onda original, s3o usadas 
nas andlises e sinteses. Essas caracteristi- 
cas s5o usadas para controlar um mode- 
lo que visa obter, na saida, um sinal de 
voz que n5o 6 similar ao original, mas 
que cont6m as mesmas informa^bes. 

£ importante notar que aqui n5o 
existe nenhuma inten93o em reproduzir 
a forma de onda original da voz. Exis- 
tem v3rias t^cnicas que se propbem a 
preencher esta caracteristica, mas nos 
deteremos somente 3 descri93o da tecni- 
ca mais utilizada, que 6 chamada LPC 
(Cbdigo de Previs3o Linear). 

LPC pode ser descrito como um 
modelo matemdtico do trato vocal 
humano. Da figura 5, nota-se que os 
parametros usados para controlar o mo- 
delo representam a quantidade de ener- 
gia enviada pelos pulmbes (amplitude), a 
vibra^ao das cordas vocais (frequencia 
de vibra93o, decisSo de som surdo/ 
sonoro) e as mudan 9 as no trato vocal 
(coeficiente de reflexao). O modelo da 
tecnica LPC que se tornou padrfo foi o 
LPC - 10, apesar de alguns sistemas terem 
sido desenhados usando o LPC- 12. 
Isto significa que o modelo usa 10 
coeficientes de reflexSo, ou pblos, para 
modelar o trato vocal. A taxa de dados 
para o LPC - 10 e tipicamente entre 1 200 
e 2400 BPS. 

CONSIDERABLES PARA 
DESENVOLVIMENTO 

Mesmo utilizando t^cnicas iguais, 
como LPC, por exemplo, os circuitos in- 
tegrados s3o desenhados com diferentes 
arquiteturas e processados com tecnolo- 
gias diversas, como indicado na figura 6. 
Ha tres importantes pontos a se levar em 
conta na sele93o da tecnologia de sinte- 
se da voz: custo, flexibilidade e qualida- 
de. Apbs ter-se estabelecido a aplica95o 
e a performance que o sistema deve ter, 
a minimiza93o de custos toma-se um 
ponto dominante. Por esta razSo, baixa 
taxa de dados para se alcazar boa qua- 



lidade toma-se o fator principal no de- 
senvolvimento do sistema. A codifica- 
93 o de formas de onda pode produzir 
um boa qualidade de voz a uma taxa de 
dados muito maior que codificaijao de 
parametros. 

Entre as tecnicas de codifica93o de 
parametros, LPC apresenta um meio ter- 
mo entre qualidade e taxa de dados. Es- 
tudos recentes mostram que a taxa de 
dados da tecnica LPC pode ser futura- 
mente reduzida a uma taxa de 850 BPS, 
ainda mantendo uma boa qualidade de 
voz. Isto faz a LPC mais atrativa que as 
outras tecnicas, principalmente em qua- 
lidade e taxa de dados. 

Flexibilidade e um outro fator a se 
considerar. Normalmente, codifica93o 
de parametros 6 muito mais flexivel que 
a de forma de onda, devido aos poucos 
numeros de parametros ou variaveis. Por 
razbes j3 apresentadas, LPC se apresenta 
como a solu93o ideal. A figura 7 resume 
as v3rias tecnicas de codifica93o, em re- 
13930 3 taxa de dados (custo) e flexibili- 
dade. 

TfiCNICAS DE CONSTRUBAO 

Uma vez escolhida a tecnica de codi- 
fica93o, a tecnica de constru93o da voz 
6 o prbximo passo. A constru93o da voz 
pode ser alcan 9 ada atrav^s de tres apro- 
xima 9 bes bdsicas. Primeiro, frases com- 
pletas podem ser guardadas em memo- 
ria, para serem ouvidas mais tarde. Usan- 
do este metodo, a naturalidade e ou- 
tras caracteristicas, inerentes 3 voz, fl- 
eam preservadas. Contudo, o custo da 
membria e a flexibilidade do sistema se 
apresentam com grandes dificuldades. 
Todas as frases a serem ditas deverSo es- 
tar em membria e n3o poder3o ser rea- 
grupadas para formar frases novas. 

Uma segunda tecnica de constru93o, 
que aumenta a flexibilidade do sistema, 
6 a concatena95o de palavras. Nesta tu- 
nica, as palavras s3o guardadas em me- 
mbria e conectadas para formar frases. 
Ganha-se em flexibilidade, visto que 
cada palavra 6 guardada sb uma vez, 
mas podendo ser usada para criar mui- 
tas outras frases. A qualidade, entretan- 
to, e inferior 3 constru 9 fo de frases, por- 
que palavras, quando postas juntas, 
soam um pouco artificial e sem naturali- 
dade. Este & o resultado de quando as 
palavras s3o usadas em um contexto di- 
ferente daquele em que foram gravadas. 
A flexibilidade mdxima e obtida quando 
as palavras s3o quebradas em seus sons 
basicos, possibilitando a forma93o de 
um vocabulario ilimitado. Estes sons po- 
deriam ser fonemas, alofones, difones 
etc. Com estas unidades, qualquer frase 
ou palavra pode ser criada. 
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Fabricante 



Coaponente 



Introd . 



T ecn . 



Modelo 



TMS 5100 


1978 


P M0S 


LPC - 1 0 


TMS 5200 


1979 


P M0S 


LPC- 10 


SP-250 


1980 


N M0S 


LPC -12 


SP-256* 


1980 


N M0S 


LPC- 1 2 


HD38880 


1980 


P M0S 


LPC - 1 0 


HD61885* 


1980 


C M0S 


LPC- 1 0 


MN6401 


1980 


N M0S 


LPC - 1 0 


MN1261 


1980 


C M0S 


LPC- 1 0 


1 chip 


1980 


N M0S 


LPC- 1 2 


SPC 


1980 


N M0S 


Mozer 


LR - 3680 


1980 


C M0S 


Delta-Mod . 


SC-01 


1980 


C M0S 


F orman t / 
Phoneme 


S-3610* 


1981 


C M0S 


LPC- 1 0 


MB8760 


1981 


N M0S 


LPC 


M58817 


1981 


P M0S 


LPC 


DSP 


1981 


C M0S 


LPC- 10 


UPD7751 


1981 


N M0S 


ADPCM 


VSY-100 


1981 


N M0S 


LPC 


PDSP 


198 1 


N M0S 


LPC - 1 0 



Hitachi HD38880 1980 

HD61885* 1980 

Matsushita MN6401 1980 

MN1261 1980 

M.B. 1 chip 1980 

National SPC 1980 

Sharp LR - 3680 1980 

Votrax SC-01 1980 

AMI S-3610* 1981 

Fujitsu MB8760 1981 

Mitsubishi M58817 1981 

Motorola DSP 1981 

NEC UPD7751 1981 

Sanyo VSY-100 1981 

ISI PDSP 1981 

* ROM de Vocabulario 
Figura 6 - Fabricantes de circuitos para voz sintetizada 



A quantidade de membria 6 reduzida 
somente ao necess3rio, para guardar es- 
tes conjuntos de sons bdsicos, que v5o 
ser usados para criar o vocabuldrio. Mas 
o resultado 6, mais uma vez, artificial e 
sem naturalidade. A escolha da tecnica 
de constru93o deve ser feita entre flexi- 
bilidade, custo da membria e qualidade 
de voz (naturalidade e inteligibilidade). 
Tipicamente, quanto mais flexivel for a 
tecnica, menor 6 o custo da membria e a 
naturalidade do som. Portanto, aumen- 
tar a qualidade implica em maior consu- 
mo de membria e menor flexibilidade. 
Geralmente, quando a comunica93o e o 
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Figura 7 - Comparafdo entre as ttcnicas de 
codificafdo de parametros e forma de onda 



objetivo primario, a tecnica dos sons ba- 
sicos 6 a solu93o ideal. Ja, quando a na- 
turalidade 6 o objetivo, a constru 9 ao de 
frases e a escolha. 






Antes de inscrever-se em qual- 
quer curso de inform3tica, conte 
ate 10. Conhepa a escola, os m6- 
todos e equipamentos. Confira 
se o que voce vai aprender bate 
com o que voce realmente preci- 
sa. O SENAC-INFORMATICA 6 
a escola mais completa de Sao 
Paulo. Tern cursos pr3ticos para 
quern quer aprender a operar, 
programar, conhecer linguagens, 
aplicativos, ou simplesmente, jo- 
gar com o micro. O SENAC-IN- 
FORMATICA est3 oferecendo 
10 novos cursos nota 10 da linha 
Sinclair. Escolha o seu e venha 
tirar a prova dos 9. Voce vai con- 
cordar em numero, genero e 



Operapao TK90X e 
Introdugao ao Basic 
Sinclair 

ProgramapSo 
Basic TK90X 

Assembler Z-80 

Assembler Z-80 
Avan pad o 



6 . 

7. 

8 . 

9. 

10 . 



Criapao e Programapao 
de Jogos no TK90X 

CriapSo e Programapao 
de Aplicativos 
no TK 90X 

FORTH no TK90X 

PROLOG no TK 90X 

Aplicapdes Profissionais 
do TK90X 

Logo para Crianpas 



INSCRIBOES ABERTAS. 
VAGAS LIMITADAS! 

Informapoes e Inscripdes: 

Rua Dr. Vila Nova, 228 
Tel.: (011) 255-0066 



Frederico Josd Santos Meloni esta cursando o sexto ano de engenharia na Unimep e trabalha, 
atualmente, como tdcnico responsive! pelo desenvolvimento de vocabulario em voz sintetizada. 
na Texas Instrumentos. Fez treinamento no desenvolvimento de sistemas em voz sintetizada em 
Dallas — EUA. 
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Aplicativos Cibertron 

MICRO SISTEMAS estara analisando em suas proximas edigoes uma 
sbrie de aplicativos para a linha MSX, langados pela Cibertron. Os 
softwares sao: MSX -Word, Planilha MSX, Banco de Dados e Assembly e 
Desassembly, albm do Simulador de voo 737. 

Estes aplicativos sao vendidos ao prego de Cz$ 99,90 e podem ser 
encontrados na Amaroson (284-9644) e Magnodata (255-7653), em 
Sbo Paulo; e em Sto. Andrb, no Shop Audio & Video (444-6055). 



Otimismo com as novas medidas 



"Estou bastante otimista 
com as novas medidas econo- 
micas. 0 setor de informbtica, 
em particular o setor comer- 
cial, s6 tern a ganhar com o 
novo pacote". Assim se posi- 
cionou o gerente da Brasil 
Tiade Center Com. e Partici- 
pagbes, Manoel D'Assumpgao 
Gomes, em relagao bs novas 
medidas economicas adotadas 
pelo governo. 

Na opiniaode Manoel D'As- 
sumpgao as mudangas farbo 
com que a industria volte b 
situagao de poder financiar o 
combrcio, isto 4, aceitar maio- 
res prazos de pagamento, fa- 
zenda com que os estabeleci- 
mentos comerciais possam fi- 
nanciar direto ao consumidor 
final, sem a interference do 
setor bancbrio. 

Com essa situagao estabele- 
cida, o que Manoel considera 
o mais importante, as outras 
questbes serao gradativamente 
resolvidas. “Ainda estamos num 



perfodo de adapt agao, no mo- 
mento os negbcios estao quase 
todos parados, mas o quadro 
vai mudar daqui a uns 60 
dias." 

Quanto bs mudangas mais 
imediatas, como o fim da 
ORTN e o congelamento de 
pregos, Manoel afirma que nao 
o afetaram muito. "Nao baseb- 
vamos nossos pregos na ORTN 
e, na verdade. jb estamos com 
os pregos congelados ha algum 
tempo. Segundo ele, existe atb 
uma tendencia no setor de 
informbtica dos pregos dos e- 
quipamentos baixarem, ap6s o 
langamento do produto, na 
medida que a concorrencia 
se torna mais acirrada. 

"Albm do mais”, ressaltou 
Manoel, *‘o setor de informb- 
tica depende muito do merca- 
do externo e a tendencia 
Id fora atualmente b de baixa 
nos pregos dos equioamentos 
e componentes e isso se reflete 
logo no nosso mercado”. 



Os vencedores do Enjoy Sampa 
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Para estimular mais a participa- 
gao dos usuarios do CBBS Sampa, 
seu operador Rizieri Maglio deci- 
diu promover um concurso de te- 
las, atravbs do sistema: o Enjoy 
Sampa. 

"Decidimos fazer um concurso 
de telas, com desenhos”, conta 
Rizieri, "sem recorrer a caracteres 
grbficos. Desta forma, os usubrios 
teriam que mostrar sua criativida- 
de, e todos poderiam concorrer, 
independente da resolugao de seu 
micro. Dal saimos a procura de 
patrocinadores, recebendo desde 
o infcio todo o apoio por parte da 
MICRO SISTEMAS e da Rhede 
Tecnologia, fabricante de mo- 
dems”. 

Langado em 23 de setembro, 
juntamente com a Feira de Infor- 



mdtica em Sao Paulo, o certame 
encerrou-se em 31 de dezembro. 
A partir dessa data as telas po- 
diam ser vistas no mbdulo galeria, 
cada vez que o usuario do Sampa 
acessasse o sistema. No final 
havia um mbdulo para votagao. 
Assim o julgamento das 1 1 telas 
apresentadas foi feito pelos pro- 
prios usuarios, cerca de 200.0 sis- 
tema estava programado para evi- 
tar fraudes. detectando se o usub- 
rio jb havia votado ou nao, 
impedindo-o de votar mais de 
uma vez. 

0 vencedor, David M. Widman, 
de Sao Paulo, com a tela "COMP- 
MAN”, recebeu como premio um 
micromodem especlfico para o 
seu micro, da Rhede Tecnologia. 
O segundo, terceiro e quarto colo- 
cados receberam uma assinatura 
anual de MICRO SISTEMAS. Sao 
eles: Claudio Leonardo, com a te- 
la "Saturno”; Wagner Mengarda, 
com "Careca” e Paulo Sergio 
Motta, com "Chiptel". 

Para Riz a experience valeu, 
pois 6 preciso conscientizar o 
usuario de que ele tem imimeras 
formas de participar ativamente 
do sistema, e por isso ele promote 
continuar desenvolvendo ativida- 
des que agitem e estimulem os 
usuarios, como concursos e sor- 
teios. 




Terminals 

A Edisa esta langando uma 
nova sbrie de terminais de video, 
a ED -3600. Compatlvel com 
os atuais modelos ED-251TA, 
ED-3620 e ED-3621, a nova sb- 
rie 6 formada por dois mbdulos 
separados: terminal de video e 
teclado. 

O terminal de video opera 
no modo asslncrono e possui 
uma tela de 24 linhas x 80 colu- 
nas, sendo capaz de representar 
atb 256 caracteres e podendo ser 
utilizado com todos os computa- 
dores das series ED-200 e ED- 
600. 

O teclado b ligado ao terminal 
por um cabo espiralado e possui 
88 teclas, incluindo um teclado 
numbrico reduzido e teclas para 
controle do cursor. As teclas 



Show-room Proisa I Prologica 



Um novo show-room na brea da informatica foi inaugurado 
no ABC paulista pela Proisa, revendedor exclusivo Prolbgi- 
ca, ligado ao Grupo Comercial Apolinbrio Trabalhando com a 
Prolbgica desde 1984, o prbximo passo da Proisa deverb ser a 
criagbo de um setor de software, mas segundo o presidente do 
Grupo, Isaias Apolinbrio, dentro de seis meses o prbprio show- 
room jb deverb ser pequeno para atender a demanda. Se vocb 
quer conferir o enderego 6 Rua Jacquey. ABC, Sao Paulo. 



ED-3600 




tambbm emitem um sinal audlvel, 
ajustbvel em 3 nlveis de intensida- 
de. 



Jornal 

em 

disquete 

A Gavea Software Clube dei- 
xou de editar bimestralmente seu 
jornal, criando um novo sistema 
de atendimento ao sbcio, via 
software. 

0 projeto inclui, albm dos 
programas em disquetes, um servi- 
go de informagao que, num pro- 
grama determinado, simulara o 
jornal que antes era entregue em 
folhas fotocopiadas. 

Esse servigo serb entregue ao 
usubrio mensalmente, em sua prb- 
pria casa, pelo Correio. O valor 
do servigo serb de Cz$ 85, CX), jb 
incluldo o prego do disquete. 

Albm disso os associados do 
clube passarao a receber descon- 
tos de 15% na compra de livros 
da Editora Campus. 



I INFORM 

A I Feira de Informbtica do 
Triangulo Mineiro — INFORM — 
estara acontecendo de 10 a 13 de 
abril. em Uberaba, Minas Gerais. 

Promovida pela Sucesu do 
Triangulo Mineiro, com organiza- 
gao da Rotal Promog5es, e apoio 
da Prefeitura Municipal de Ubera- 
ba, a I INFORM reunira fabrican- 
tes e representantes do setor, 
abrangendo desde micros a equi- 
pamentos de grande porte. 

Nos dias 10, 11 e 12 de abril 
serao realizadas palestras sobre: 
Informatica na Sociedade; O Mi- 
crocomputador na Pequena e Mb- 
dia Empresa; Informatica na Agro- 
pecuaria; O Microcomputador pa- 
ra Profissionais Liberals e Infor- 
mbtica na Administragao Publica. 

A mostra terb lugar no Pavi- 
Ihao "Henry Ford", a Praga Frei 
Eugenio, n? 45, Uberaba, diaria- 
mente das 14:00 bs 22:00. Os 
ingressos serao vendidos a pregos 
simbblicos na entrada do Pavi- 
Ihao. 



MSX: lan^amentos a vista 



Buffer de 
impressora 




Conforme noticiamos na se- 
gao bits da edigao de janeiro 
a Racimec e Dynacom estao 
entrando para o hall dos fabri- 
cantes do MSX. Apesar de ainda 
nao ter data prevista para o lan- 
gamento .(talvez na prbxima 
Feira de Informatica), a Raci- 
mec confirm ou que seu micro 
esta em fase de teste. 

Jb a Dynacom, tem seu lan- 
gamento marcado para abril, 
na UD/86, que acontecera entre 
os dias 18 e 28, em Sao Paulo. 
O equipamento de 8 bits, com 
teclado anatomico profissional 
(separado da UCP, para que o 
usuario possa escolher a melhor 
forma de opera-lo), possui mi- 
croprocessador central Z-80:ve- 



locidade (clock) de 3,58 MHX; 
resolugao grafica de 256 x 192 
pontos, com 16 cores simulta- 
neas e sprites; membria ROM 
de 32 Kb e RAM inicial de 80 
Kb (64 para o usuario e 16 para 
o vfdeo), podendo chegar, atra- 
v6s de expansoes externas a atb 
256 Kb. O novo micro tem dois 
slots para conexao de perifbri- 
cos e expansoes; teclas de inse- 
rir e deletar caracteres; fungbes 
programaveis pelo usuario; ca- 
racteres graficos e acentuagao 
em Ifngua portuguesa, al4m de 
sai'das para impressoras paralela 
e serial, e conexoes para audio 
e video. 

Por estar de olho nesta nova 
fatia do mercado, o MX- 1600 — 



micro projetado pela Dynacom 
langado em agosto de 1986 — 
esta em ritmo lento. Segundo 
fontes da empresa, ele esta 
sendo comercializado apenas em 
algumas lojas de Sao Paulo e 
nao tem previsao de chegada ao 
Rio. 

Na linha de software para o 
MSX. a Plansoft, empresa paulis- 
ta, colocou no mercado 
aplicativos de conta a pagar, a 
receber e finangas dombsticas. 
Em jogos, a software-house Ian- 
gou uma sbrie especial que inclui 
simulador de voo, xadrez e aven- 
tura submarina, albm de dez 
games pack, com dois jogos 
cada um. 



Hotbit acessa Videotexto 



Murici 6 o novo "buffer" de 
impressora, langado pela Microsol 
Tecnologia, empresa sediada em 
Fortaleza, fabricante dos cartdes 
de expansao para o CP-5CX) e 
CP-500/M80, daProIbgica. 

O "buffer" Murici, para im- 
pressoras paralelas, padrao Cen- 
tronics, tem membria minima de 
64 Kb de RAM, expansivel para 
atb 256 Kb; velocidade de recep- 
gSo de dados de 12.000 cps, 
e de transmissbo igual a velocida- 
de suportada pela impressora. 
Conta com um modelo exclusivo 
de caixa, nos tons marrom e bege, 
que jb abriga a fonte de alimen- 
tagao, parte mais pesada do 
"buffer". Entre suas fungoes, 
visando agilizar o desempenho da 
impressora, estao a de cbpias 
multiples (de 1 a 65 mil), e as 
fungbes de retroceder, avangar, 
parar, limpar e autoteste. 

O enderego da Microsol 4 
Rua Almirante Rufino, 779, Vila 
UniSo, Fortaleza, CE, CEP 60420, 
tel.: (085) 227-5878. telex (085) 
1699 MISO. 

PC/DC 

Visando facilitar a solugao de 
problemas com rotinas contbbeis, 
a WK & WK Sistemas de Compu- 
tag§o Ltda., esta colocando 4 dis- 
posigSo dos usubrios de micros 
compati'veis com o IBM-PC, uma 
ferramenta para dinamizar a execu- 
gao destas rotinas: o PC /DC. 

O PC /DC bum software alta- 
mente interativo, permitindo uma 
fbcil consulta, alteragao ou langa- 
mento de qualquer item, emissao 
de relatbrios. diarios e razao. O 
sistema tambbm p>ermite transferir 
dados para outras planilhas eletro- 
nicas como Lotus 1-2-3, dBase 
III e Open Acess. 

O PC /DC custa 175 ORTN e 
tem garantia de seis meses. Maio 
res informagoes podem ser obti- 
das na WK & WK, na Rua Mai. 
Achilles Gallotti, 118 - Vila 
Nova, Blumenau — SC, tel.: 
(0473) 23-1871. 



Os usubrios de Hotbit jb po- 
dem acessar os servigos de Video- 
texto, da Telesp, e Cirandao da 
Embratel. A Epcom /Sharp estb 
langando no mercado, um cartu- 
cho reunindo interface padrao 
RS 232 e softwares para ligagao 
com Videotexto e com outros 
micros. Segundo Josb Mbrio Fon- 
seca, gerente de Marketing em 
automagSo, a empresa espera ven- 
der 20 mil unidades do cartucho 
em 1986, uma vez que o consumi- 
dor poderb desfrutar de todas as 
vantagens de um micro, por um 
investimento semelhante ao que 
faria para possuir o terminal e 
configuragao bbsica necessaria pa- 



ra acessar ao Videotexto, pelo sis- 
tema usual. 

Outro perifbrico disponlvel 4 o 
HB-2400, um data record, ou gra- 
vador de dados, com sistema mo- 
nitor de som, comandos exclusi- 
vos phase system, e ajuste especial 
de ganho. O equipamento aumen- 
ta a confiabilidade na leitura e 
gravagao de dados em fita cassete, 
tendo sido desenvolvido justamen- 
te para aplicagbes pessoais e do- 
mbsticas, e no segundo semestre 
deverb contar tambbm com disk- 
drive. A expectativa para 1986 4 
atender a 30% das 50 mil unida- 
des de Hotbit que a empresa es- 
pera comercializar esse ano. 



MX850 na 
Souza Cruz 

A Cia. de Cigarros Souza Cruz 
e a Elebra Computadores concre- 
tizaram uma negociagao de grande 
porte envolvendo cinco supermi- 
nis MX850. Estes computadores 
substituirao os minicomputadores 
usados pela Souza Cruz e trarao 
maior performance do sistema. 

A primeira unidade do MX850 
foi instalada no ultimo mbs em 
Blumenau e a Elebra instalarb 
os outros 4 computadores atb o 
mes de agosto. Posteriormente 
o acordo preve a interligagao de 
todos os MX850 com os computa- 
dores IBM localizados na Souza 
Cruz no Rio de Janeiro. 

O MX850 4 um supermini de 
32 bits baseado na tecnologia do 
VAX 11/750 e possui diversos 
recurs os para processamento de 
programas voltados para aplica- 
gbes comerciais. 






Troca de programas em BASIC 

Criado em Rio Claro, no interior de Sao Paulo, o "Basic Computer 
Clube", estb aceitando associados ou interessados na troca de programas 
em Basic para micros Sinclair, TRS 80, TRS Color, Apple e compatf- 
veis. Para maiores informagbes basta escrever para o "Basic Computer 
Clube". Rua 1, Part. n98 , Centro, Rio Claro, Sao Paulo, CEP 13.500. 



De olho na Argentina 



"O Brasil estb divisionan- 
do um oportuno aliado no he- 
misfbrio sul, no setor de in- 
formbtica: a Argentina. E a 
recfproca parece ser verdadei- 
ra. Seja como for, existe 
atualmente toda uma movi- 
mentagao envolvendo os dois 
pafses tanto na brea de desen- 
volvimento tecnolbgico e cien- 
tffico quanto no setor de pro- 
dugao e comercializagao na 
brea de software. 

Principalmente no setor 
tbcnico-cientffico o entendi- 
mento estb bastante avangado. 
Desde janeiro de 85, quando 
foi formado um grupo bilate- 
ral responsbvel por esse proje- 
to, os trabalhos ja avangar am 



muito, culminando com a rea- 
lizagao, em fevereiro ultimo, 
do EBAI — Escola Brasileira- 
Argentina de Informbtica. 

A EBAI, que albm de mi- 
nistrar um curso com alunos 
e professores dos dois paises, 
deixou como saldo positivo 
uma sbrie de temas de pesqui- 
sa que deverao se constituir 
em projetos a serem aprovados 
pela SEI e pela Secretaria 
de Informbtica da Argentina. 

O responsbvel no Brasil pe- 
lo projeto 4 o professor Car- 
los Josb Pereira de Lucena, 
titular do departamento de in- 
formbtica da PUC-RJ. Ao 
fazer um balango da situagao 
atual, Lucena declarou que atb 



o meio do ano de 86 os pro- 
jetos de cooperagao cientffica 
jb deverSo ter sido apreciados 
pelas secretaries dos dois paf- 
ses. Albm disso, foram forma- 
dos seis grupos de trabalho 
que estao acom panhando de 
perto todo o processo. Com a 
selegao dos projetos, esses 
grupos irao partir para a fase 
de execugao, arregimentando 
inclusive os estudantes da 
EBAI. 

Paralelamente, tudo estb 
sendo preparado para }ue no 
infcio do prbximo ano seja 
realizada na Argentina a segun- 
da EBAI, formando dessa ma- 
neira um intercambio perma- 
nente. 
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As atracoes do Micro Festival 86 




Sem sombra de duvidas as 
grandes atrapbes do Micro- Festi- 
val realizado de 19 a 22 de marpo, 
no Rio de Janeiro, concentraram- 
se na brea de PCXTs. A maior par- 
te das grandes empresas que estao 
nesse setor optaram por seguir o 
padrao IBM. Uma excepao 6 a 
carioca Cobra que preferiu aper- 
feipoar sua linha apresentando o 
seu conhecido Cobra 210 com a 
interface multiplexadora assmcro- 
na Micromux, o sistema operacio- 
nal MMP- Monitor Multiprograma- 
do, funcionando como telex ele- 
trbnico. A Micromux permite 
ao Cobra 210 ligapao adicional de 
atb quatro linhas assfncronas, ex- 
pandindo o numero mbximo de 
terminais de dois para seis. A Co- 
bra estb lanpando tambbm mais 
dois terminais da linha TR, o 
206 e o 278, que emulam termi- 
nais IBM 3278, e ainda podemvi- 
rar o Cobra 210 com a troca da 
placa base. 

A Microtec apresentou o XT 
2002 incorporando o software 
VP- Planner, da Paperback Soft- 
ware International, fundada por 
Adam Osborne e representada no 
Brasil pela Vista Tecnologia. O 
VP- Planner b totalmente compa- 
tfvel com o Lotus 1-2-3 e vem 
com banco de dados multidi- 
mensional e abertura de atb seis 
janelas na tela, com o prepo de 
Cz$ 4 mil e 700, s6 que os usub- 
rios de XT 2002 nao pagam a 
mais por ele. Albm disso, a Micro- 
tec vai colocar no mercado uma 
sbrie especial de XT 2002 com re- 
cursos adicionais: clock de 8 MHz, 
o que significa um aumento de 
desempenho da ordem de 67%; 
membria RAM de 736 Kb; e 
mais uma placa controladora de 
atb quatro unidades de disco fle- 
xi'veis de 5 1/4" e outra de atb 
duas unidades de Winchester, de 
10 a 140 Mb. Essa sbrie especial 
de XT 2002 serb comercializada 
por Cz$ 12 mil a mais do que a 
normal. 

A Medidata reservou para o 
Micro Festival o lanpamento do 
M-XT, compativel com o PC/ 
XT, com oito slots de expansao 
e 640 Kb de membria RAM, 
albm da oppao de operar como 
um micro de 8 bits, com CP/M- 
80 e com o sistema MUMPS. 

A Troppus tambbm lanpou um 
XT, visando atender principal- 
mente os usubrios da rede Tro- 
ppus. Apresentou ainda uma rede 
privada de Videotexto, a Troppus 
VN 1000, viabilizando aplicapoes 
de comunicapao de dados em ge- 
ral, como correio eletrdnico e 
registro de resposta ao usubrio. 

O Sector XT marcou sua pre- 
senpa no Festival como um novo 
representante da linha de 16 bits, 
fabricado pela paulista Sector, 
originada da cisao, em agosto de 
85, da Softec, fabricante do 
Ego. O Sector XT admite o uso 
de sistema operacional Analix, 
multiusubrio e, neste ambiente, 
permite a ligapao de atb oito ter- 



minais assfncronos. O prepo da 
configurapao bbsica 6 de Cz$ ... 
145 mil. A Sector apresentou 
ainda oppbes de rede, topologia 
de barra, adquiridas em OEM da 
Cetus e da empresa paulista NCT 
(PC-Net). 

Na brea dos micros compatf- 
veis com a linha Apple foram pou- 
cas as novidades. A Unitron apre- 
sentou os seus T I -Calc e Tl-Tex- 
to ligados ao concentrador Intelex 
da Tandem Tecnologia, um paco- 
te completo de hardware e soft- 
ware para conexao a rede telex, 
e a interface Embramic 4000, da 
Embramic de Porto Alegre, tam- 
bbm emulando telex. 

As novidades da Unitron ficam 
por conta da confirmapao, por seu 
diretor Comercial, Geraldo Antu- 
nes de Azevedo, do lanpamento 
do primeiro Macintosh brasileiro, 
para o final do mbs de maio. Com 
o nome definitivo de Mac 512, 
o modelo da Unitron virb munido 
de teclado numbrico separado — o 
mesmo utilizado na configurapao 
do Tl-Calc; membria inicial de 
512 Kb, com possibilidade de ex- 
pansao atb 4 Mb por superposipao 
de placas e uma unidade de dri- 
ve de 3,5" com capacidade de 
800 Kb. A empresa planejou um 
lote inicial de 200 mbquinas para 
os primeiros seis meses e pretende 
estabilizar a produpao mensal en- 
tre 300 e 500 equipamentos, de 
acordo com a demand a do merca- 
do. Para o primeiro lote de pro- 
dupao, a Unitron importou as uni- 
dades de drive da Sony. Jb o mou- 
se e o monitor de 9" serao fabri- 
cados pela prbpria empresa. 

Na faixa dos micros pessoais, 
como aconteceu na ultima Feira 
de Informbtica no Anhembi, os 
stands mais concorridos eram os 
da Gradiente e da Sharp, com o 
Expert e o Hot Bit, da linha 
MSX. Na Sharp, destacamos o lan- 
pamento do gravador HB-2400, 
especialmente projetado para uso 
dos micros e ainda a interface de 
comunicapao HB-3000, um cartu- 
cho que permite conectar via li- 
nha telefonica um Hot Bit ao 
Videotexto ou Cirandao. 



A Gradiente mostrou em seu 
stand um drive de 5 1 /4" FS/DD 
com capacidade para 180 Kb (a 
ser lanpado em junho) e outro 
drive de 3,5” com capacidade de 
360 Kb (a ser lanpado no imcio 
de 1987). E interessante observar 
que a interface usada tern capaci- 
dade para dois drives e serve tan- 
to para o modelo de 3,5", como 
para o de 5 1 /4". 

A CP Computadores, fabrican- 
te de micros de uso pessoal, nao 
apresentou novidades, limitando- 
se a expor o CP 200S; o CP 400 
Color, alibs o bnico micro compa- 
tfvel com o TRS-Color presente 
na exposipao e o CP 500 M-80, 
que brevemente terb seu design al- 
terado, mais compacto. A CCE 
demonstrava o micro MC-1000 e 
a Microdigital foi a grande ausen- 
te. 

SOFTWARE 

O segmento de software pros- 
segue concentrando-se cada vez 
mais na linha de 16 bits, notada- 
mente na brea de pacotes de uso 
geral, como as planilhas, processa- 
dores de texto e gerenciadores de 
bancos de dados. 

A grande novidade na brea das 
planilhas eletrdnicas b a -versao 
2.0 do Lotus. . . em portugues. 
O lanpamento veio da empresa 
carioca PC-Software, e o pacote 
chama-se Samba. Trata-se de um 
sistema integrado identico ao 
1-2-3 e dentre as vantagens apre- 
sentadas em relapao a versao 1. A 
do Lotus, a mais usada no Brasil, 
figuram acentuapao natural; maior 
facilidade na impressao de grbfi- 
cos e transferbncia de arquivos; 
alocapao dinamica de membria; 
compatibilidade com processador 
aritmbtico 8087; manual compac- 
to em Portugubs; curso e disquete 
de demonstrapao gratuitos. O pre- 
po fica em torno de Cz$ 7 mil 
450. Tambbm da PC-Software 
veio uma nova versao do proces- 
sador de texto A-B-C com memb- 
ria duplicada; novo lay-out te- 
la e mbdulos de edipao e impres- 
sao unificados. A empresa tern 



pianos de baixar o prepo do A-B- 
C para Cz$ 5 mil 320. 

A Brasoft lanpou a versao 
2000 do Wordstar. Em portugues 
fluente, inclusive os comandos 
mnemonicos; com janelas para 
atb trbs documentos na mesma 
tela; operapoes de cblculo em 
tempo de edipao; comando sort e 
dicionbrio inglbs-portugubs atuali- 
zado, o Wordstar 2000 estb sendo 
comercializado por Cz$ 15 mil 
963. 

Na brea de gerenciadores de 
banco de dados, a Soft apresentou 
o seu Dialog, em versao para XT. 
Compatfvel com o dBase III, o 
Dialog XT traz novos comandos 
e funpoes, analise de programapao 
mais apurada e correpao simplifi- 
cada. Ele serb oferecido em duas 
versoes, portugubs e inglbs, ao pre- 
po de Cz$ 12 mil. 

Outro gerenciador lanpado foi 
o R : Base 5000, da Microsoft Cor- 
poration, representada no Brasil 
pela Compucenter, que traz como 
inovapbes um compilador interno, 
o RB Compiler; um gerador au- 
tombtico de aplicapoes — Aplica- 
tion Express; entrada de dados 
definfvel pelo usubrio; fndice 
autombtico de manutenpao e cha- 
ves. O prepo do R : Base 5000 b de 
Cz$ 19 mil 500. A Compucenter 
mostrou ainda o Windows, tam- 
bbm da Microsoft, um software 
bbsico que cria um ambiente 
operacional capaz de permitir o 
processamento, sob MS-DPS/PC- 
DOS, de vbrios programas no 
mesmo tempo, transferindo dados 
entre eles. O Windows custa 
Cz$ 3 mil 800. 

A Intercomp mostrou tambbm 
um lanpamento na brea de gerbn- 
cia de banco de dados, o Dataflex, 
para CP/M e 16 bits. O Dataflex 
b multiusubrio e uma das princi- 
pals caracteristicas do produto b 
a flexibilidade. rodando sob diver- 
sos sistemas operacionais, entre 
eles o MS-DOS. IBM-PC DOS. PC 
Net, CP/M e CP/M-86, NP/M- 
86 e Turbo DOS. Para maio a 
Intercomp promete incorporar ao 
Dataflex um gerador de grbficos 
e funpbes matembticas coproces- 
sadas. 

A Datalbgica, representante da 
Ashton Tate no Brasil, reservou 
para o Festival o lanpamento de 
livros de T reinamento Programa- 
do com disquete dos softs dBase 
II, Dbase III e Framework, ao 
prepo de Cz$ 390 cada. 

Por falar em edipao, tambbm fa- 
zendo bastante sucesso no evento, a 
editora Campus apresentou diversos 
de seus mais recentes lanpamen- 
tos, como o "Inteligbncia Artifi- 
cial em BASIC", de Mike James: 
"Linguagem de Programapao pa- 
ra Micros”, de Garry Marshal ; 
"MUMPS", de Mauro de Castro 
Lobo e "Visitrend/Visiplot", de 
autoria de Raul Udo Christimann , 
colaborador da revista MICRO 
SISTEMAS, que alibs participava 
do stand da Campus promovendo ■ 
vendas de assinaturas. 
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ais prdtico e e lirj.l tudo 



xiste &'■ m.tis 

.tit^Hos dr* 



It* coni o futuro 



km P 



mstrupao 

adores. 



Idio porte 



leciais e Sisteman.Ltda 

• C* Postal 146 06800 Imtiu 
l94?433Pab« Tele* 01 t/Ti234 
'•kKjrjm.v. Peek able 



fn. quando 
numero de 



BR 116/ 
SP Tel 
KMPL • 



PARA SOLUQOES 
DEFINITIVAS 




Trata-se cJe um sistema anticonosivo e antiabrasivo com resina pro- 

duzida sob avangada tecnologia nos Estados Umdos, Japdo e agora 

no Brasil 

SUAS PRINCIPAL VANTAGENS 

• excepcional reststGncia a ataques quimicos e abrastvos: 

• cura rapida. entregando a area revestida em poucas horas ao trd- 
tego de empllhadeiras: 

• excefente ancoragem • coeficiente de expansAo igual ao do con- 
creto. tornando-se monolitica com a base: sem apresentar trincas 
ao longo da utilizagdo; 

• excepcionais resistfincias quimicas (mais de 250 produios qulmi* 
cos); 

• excepcionais resist6ncia9 mecimlcas (impacto. compressio, lle- 
x&o e abrasao); 

• necessidade de piso ant»-derrapante 

• lAcil limpeza. ndo permitmdo o desenvolvimento de bactdrias pa 
tog6nicas. virus e lungos. 

• temperatura de aplicagAo desde - 30 C C a!6 60°C, nSo exigindo 
parada da area operacionai 



SISTEMAS ANTICORROSIVOS 
DE RESINA QUANTUM 

ONDE SE APLICA 

• pisos de mdustrias quimicas. alimentlcias, eletro-eietrdnlcas, au- 
tomobilfsticas, petroquimicas. armazdns. supermercados, hanga- 
res. oficinas mecanicas; 

• sinalizagdo de traiego e de areas Industrials exposta9 a condl- 
gOes cllmaticas. ataques qulmlcos e mecanicos; 

• tanques de concreto ou ago; 

■ esgotos e etluentes industrials, municipals e resldoncials; 

• impermeabilizagao de paredes. pisos, tanques e tones de concre- 
to com trincas em sua estrutura. 



COMO SE APLICA 

A Resina PolymOrtica Quantum pode ser aplicada na forma de pin- 
tura com pinc^is. brochas. rolos. pistola dols componentes. ou na 
forma de argamassa quando a resina 6 aglomerada com arela silica 
classificada. 




Sol tale nosso catatogo. ou a visita do nosso tecnico 




Produzida e Distribuida no Brasil pela 

REVESTIMENTOS POLYPLEX INTERNACIONAL LTDA 

Av SSo Luiz, 187 • 2? sobreloja • loja 25 

01046 - SSo Paufo • SP - Fone: (011) 25^6609 • Telex: (011) 53728 



Tc^ N0V A 

li c *o LOGIA 

EM RES/Nas 



trs-80 trs-80 trs-80 trs-8 



Ari Morato 



Toque musica no seu micro 



O programs permite a concatenagao de notas musicals, para 
musicas muito simples, no CP-500. Este processo tamb6m 
pode ser empregado em outros programas atravesda utilizagao 
da string MU$, com as rotinas citadas nas instrugoes do pr6- 
prio programs ou atraves de instrugoes DATA com os numeros 
fornecidos pelo mesmo. O emprego da string 6 mais simples, 



facilitando a digitagao e otimizando as rotinas de gravagao em 
disco ou fita. Caso se deseje, pode-se modificar as duragoes e 
notasdispomveisdeacordocomoseu conhecimento de musica. 

Ari Morato possui um CP -500, M cerca de um ano. e 6 funciondrio do 
Departamento de Engenharia Industrial da Usiminas, no cargo de T6c- 
nico em And Uses Industrials. 



2 GERAMIJ'3/BAS - Program* Gerador Mu* I cal para CP-500 • 

3 •** A'ltori Ari Morato - Font <0311 821-6446 • 

4 Calxa Postal 230 - Morto - 35.160 - Ipatlng* - MO * 

5 •#««a»B#a»a*»a*aa«aaaeaaa»aaaaaaaaaaaaaB»aaa#aaaaaaaaa»aaa 

10 CLEAR2000 

20 DlHN0<2551s 00=12200 8 A4-STR ING»< 63,61 1 s OOSUB 1020 • GOTO 90 

30 CIS8PRINT" «»• GERAMUB/BAS ••• Ari Morato ••• 05.10.83 

*=«"iPRINTA*8PRINTsPRINT"E»ir programs permits a compos I c»o da 
rotinas de SOM para o %eu CP-500." 

40 PRINT"Voc- poder a ' .jssr BSSBS rotinas em *eus program**. lose 
rlndo em Instrncoes DATA, ns valore* list ados pelo coaando < . >" 
50 PRlNT'ou entao >jt l I I zando a string MU*. Ilstada pela llnha 54 
0." 1 PR INT"Ne*t r caso. sera 1 necessarla *ua conversao pela rot I 
na coni Ida nas llnha 820 a 990." 

60 PR INI "A rot ina de som esla* nas llnhas 1020 a 1080." * PRINT" 
A i hamada da U8R sera' feita pela rot Ina das llnhas 380 a 420." 
70 PR INTSPR INT"Nao precise proteger aeaorla < Mem.U«ada?<ENTER> 1" 
i PR INI "I. I gue a «aida ’MIC' do computador ao Aap l I f icador" 

00 OOBIIB -10011 

90 CLS iPRINT" OERAOOR MUSICAL 

«PR INTAtaPR INI 

100 PRIN11ABI 151" < ENTER >",TAB<25>" TOCAR"! PR INTTAB < 15 > " < 8 
>",TA0<23>" I NSTRIIC0E5" s PR 1 NT TAB < 15 )" < . >~,TA8<25>" LISTAR N 
0TAS"i PR INTTAB <151" < CLEAR >",TAB<25!" FIM OE PROORAMA" I PRIN 
T TAB < 13) " < 5 >" | TAB < 251 " GRAUAR EM DISKETTE OU FITA" 

110 PRINTTABI 151" < A >",TAB<25>" RECUPERAR DO DISKETTE OU FITA" 
SPR INTTAB < 1 5 1 " < 1 >", TAB<251" COMPOR" 

120 PR INI SPRINT "Face soa escolha" 

130 I FPEEK < 14400 1 = 1 THEN370 ELSE IFPEFK < 1 4400 ) -2THEN4A0 ELSE IFPE 
EK <14360 > = 1 6THEN470 ELSE IFPEEK < 1 4352 1-32THEN430 
140 IFPEEK < 143521 =64TMEN550 ELSE IFPEEK < 1 4337 1 -1 THEN30 ELSEIFP 
FEK < 1 4332>»2TMEN150 ELSE 1 30 

150 CLSlPH INT" •*••• GERADOR MUSICAL a. a. a" 

SPRINT A5SPRINT 

160 PRINTTAB<20)"NOT AS DISPONUlEIS 'sPR INT 

170 PRINTTABI 20 1"A = DO 1 , TAB < 35>"W • DOR" SPR INT TAB < 20 1 "S • R E " , T 
AO < 35 > "E - REH'SPRINTTAB< 20) "0 - MI : PR INTTAB t 20 1 "F - FA",TAB<35 
>"R - FAH"IPRINTTAB<20>"0 » SOL" s T AB < 35 >"T * SOLB" SPR INTTAB <20>" 
H - LA" i T AB < 35 ) "V = l AN" sPR INTTAB ( 20 >"J - SI 

100 PR INT"Par* encerrar sua coaiposlcao, tael* o nuarro 0" s MU*" 

190 FOR J • 1 TO 255 s IF J-255 THEN N01JI-999 I K*-"*"l GOTO 36 
0 

200 IF PEEK < 143371=2 THEN N0<J>»145 s K*«"A"8 G0T0350 

210 IF PEEK <143401=120 THEN N0U1-135 : K*="U"a G0T0350 

220 IF PEEK < 143401=0 THEN N0<J1=129 s K*=~S"8 G0T0350 

230 IF PEEK < 143371-32 THEN N0<.J)-122 s K*-"E"s GOT0350 

240 TF PEEK < 143371 = 16 THEN N0<J)=115 s K*="D"t G0T0350 

250 IF PEEK <14337 1=64 THEN NO<J)-IO0 8 K*="F"8 GOT035O 

260 IF PEEK! 143401=4 THEN N0<J!=102 s K*-"R"s G0T0350 

270 IF PEEK! 143371-128 THEN N0<J>-97 s K*="G"s G0T035O 

280 IF PEEK < 143401 = 1 6 THEN N0< 31=92 s K*="T"r GOT0350 

790 IF PEEK! 143381=1 THEN N0<J>=86 s K*="H"8 G0T03S0 

300 IF PEEK< 143441-2 THEN NOlJl-Sl s K*="Y"s G0T0350 

310 IF PFEK< 143381=4 THEN N0<J>-77 s K*="J"i GOT0350 

320 IFPEEK < 1 4368 1-1 THEN N0<J1»999 s Kt*"*"s J-255 2 GOTO 360 

330 IFPEEK < 144001=128 THEN N0<J!=500 s K*="-"8 PRINT NOtJl. s GO 

T0360 

340 GOT 0200 

350 K-USR < N0< J! *00 1 

360 KK*=KK*+Kt « NEXT J s MU*=KK* s GOSUB 1110 s GOSUB 1000 t GO 
TO 90 

370 IF J-0 THEN CLSs PRINT "BUFFER UA7I0..."s G0SUB1000 s G0T090 

300 FOR J • 1 T 0255 s IF N0<J> - 999 THEN J-255 s GOTO 420 
391) IFPEEK < 144001-2IHEN460 

400 IE NO < J 1 =500 THEN F0RZ=lT05sNEXTZaG0T0420 
410 X=IJSR<NO< Jl*DDl 
420 NEXT J s GOTO 9Q 

430 IF J=0 THEN CLSa PRINT-BUFFER UAZI0..."« G0SUB1000 8 G0T090 

440 CLSS INPIJT'T.RAUAR <SAVE> EM <01 ISKETTE OU <F>ITA" s DS 
450 IT D%= "0" THEN 500 ELSE IF 04="F THEN 760 ELSE 440 



460 PRINT'EIM DE PROGR AMA" BEND 

470 IE J=0 THEN CLSi PRINT 'BUFFER WAZ 10 . . . ' sDOSUB 1 000 



00T090 



480 CLS s PR INT"ESTAS SAO AS COMBINACOES UTILIZADAS Nt'iTA MIISICAs" 
8PRINTAS8 FOR J-IT02558 PRINT NOtJl.s IF N0<Jl-999 THFN J-255 « 
GOTO 530 

490 IF J-52 THEN OOSUB 1000 
500 IF j=104 THEN OOSUB 1000 
510 IF J-156 THEN OOSUB 1000 
520 IF J-208 THEN GOSUB 1000 
530 NEXT J a PRINT 

540 PRINT MU* 8 GOSUB 1000 a GOTO 9n 

550 CLSs IF J< 10THENINPUT"HA 1 OAOOS NO BUFFER. CONTINIIO <S7N1"|PH 
IFP*="N"THEN90 ELSE IE P*0"S~THEN 550 

560 CLS s INPUT-RECUPERAR <LOAOI OF <0>1SKETTE OU iFUTA' jD* 

570 IED*="0" THEN670 ELSE IE 0*="F"THEN 790 ELSE56U 
580 CLS 8 PRINT" mmmmmm ■) GRAWAR EM DISKETTE" 

590 INPUT "MUSIC NUMERO" jR 

600 R*»STR*<R> c RL“LEN<R* i 8 R T*=R IGHT*< R* . RL-1 1 
610 NOM* » "MUSIC" ♦ RT* 

620 OPEN "0" . 1 , NOM* 

630 CLSiPRINT NOM* 

640 PRINT 8 PRINT-GHAUANDO" 

650 PRINTR1, MU* 

660 CLOSE a GOSUB I 000 a G0T090 

670 CL6 8 PRINT" »*——=> CARREOAR 00 DISKETTE" 

680 INPUT "MUSIC NUMERO", R 

690 R4»STR*<R I 8 Rl-LEN<R*1 8 RT*-R I0HT* < R4 . RL-1 1 
700 NOM* » "MUSIC" • RT* 

710 OPEN" I" , 1 , NOM* 

720 CLS 8 PRINT NOM* 

730 PRINT 8 PRINT "IENDO" 

740 INPUT*!, MU* 

750 Cl OSE 8 GOTO 020 

760 CI.S8PR1NT" *»■■> GRAVAR EM FITA-sPH INTs lNPUT"Cas* < 

1=B. 2-Al",W8 1EU< 1 OR W>2 THEN760 

770 POKE 16913. W-l s PR INT sPR INT"PREPARE GRAUADOR EM "RECORO * I 
NPUT"TECLE (ENTER 1 OIIANDO PRONTO.", T* 

700 PRINT IPR INT"GRAUANOO" 8 PRINTM-I. Mil* ! GOSUB 1 OOU I GOTO 90 

790 CLSiPRINT" ~== •> CARREGAR OE F I TA~ sPR INT a !NPUT~Ca 

SB <1=8. 2=A!",Ui IFU< 1 OR V12 THEN 790 

800 POKE 16913, V-l 8 PR INT sPR INT PREPAR1 GRAUADOR EM •PLAY"'8INP 
UT-TECLE <ENTER1 OUANDO PRONTO",!* 8 MU*= ' ' 



810 


PR INTsPR INT-CARREGANDO'' 


s INPUTM-1 , 


MU* 


020 


PR I NT 8 PR 1 NT"CONUER TENOO STR l NGS 




030 


FOR J=1 TO 


LEN< MU* 1 








040 


K*- 


S MID* < Mil* , J, 1 1 








050 


IF 


K *= "A" 


THFN 


N0< J > 


• 


145 8 GOTO 


9«0 


860 


IE 


K *="U" 


THEN 


N0< J 1 


• 


135 8 GOTO 


990 


870 


IF 


K*="S" 


THEN 


N0< J> 


• 


129 8 GOTO 


990 


800 


IF 


K*= "E" 


THEN 


N0< J> 


■ 


122 8 GOTO 


990 


890 


IE 


K*="D" 


THEN 


N0< J> 


* 


115 8 GOTO 


990 


900 


IE 


K*»"F" 


THEN 


NO < J 1 


■ 


100 8 GOTO 


990 


910 


IF 


K*="R" 


THEN 


N0< J) 


■ 


102 I GOTO 


990 


920 


IE 


K*="G" 


THEN 


N0< J) 


» 


97 I GOTO 


990 


930 


IE 


K*="T" 


THEN 


N0< J 1 


■ 


92 « GOTO 1 


990 


940 


IF 


K*="H" 


THEN 


NO < J 1 


■ 


86 I GOTO 


990 


950 


IE 


K *="Y" 


THEN 


N0< J 1 


■ 


81 a GOTO ' 


990 


960 


IF 


K»=" J" 


THEN 


NO ( J ) 


■ 


77 a GOTO 


990 


970 


IF 


K*-"a- 


THEN 


N0< J) 


» 


999 I GOTO 


990 


980 


IF 


K*»~-" 


THEN 


N0< J) 


■ 


500 




990 


NEXT s GOTO 90 











1000 PR INTS908. "PRESSIONE < ENTER 1 PARA CONTINUAR", 

1010 IFPEEK < 1 4400 1 = 1THENR£ TURN ELSE101I1 

1020 'aaaaaaaROTINA 

1030 M*=" 12345678901 234567090123" 

1040 U = UARPTR <M*1 * LS • PEEK<U*t)s MS = PEEK<U»2): I =256»MSrLS 
1050 IF PEEK < 1 6396 1=201 THENPOKE 16526 . LSsPOKF 1 6527 . MSsG0T01070 
1060 OEEUSR = L*<L132767la6553A 

1070 FORI = LTOL+22 : READSs POKE I ♦< I >32767 ) -65536 . Sa NEXTI 
1000 RETURN 

1090 DATA 205.127.10,203.36,69.62.1.211.255.16.254 
1100 DATA 69.62.2,211.255,16.254.37,32.239.201 
1110 CLSs PR INT "BUFFER CHEIO..."s RETURN 



Gerador musical 
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apple apple apple appl 



Type para o Apple 

Antonio Carlos Sal gad o Guimaraes 



Quern utiliza o CP/M sabc da 
importance que o comando TYPE 
possui, pois atraves dele e possi- 
vel examinar-se o conteudo de ar- 
quivos sem a necessidadc do uso 
de editorcs de tcxto. Por exem- 
plo, para sc vcrificar o conteudo 
do arquivo CONTA.BAS, scria 
necessirio apenas dar o comando 
TYPE CONTA.BAS e este arqui- 
vo seria apresentado na tela. 

O Applesoft nao possui este 
comando, ja que arquivos do tipo 
A (BASIC) e B (Binario) podem 
ser examinados de maneira sim- 
ples, seja listando-os, como € o 
caso dos arquivos de programas 
em BASIC ou via Monitor, como 
os Binarios. 

Entretanto, a ausencia deste 
comando no Applesoft pode cau- 
sar algumas dores-de-cabcga c 
urn pouco de trabalho, pois se 
desejarmos verificar o conteudo 
de um arquivo do tipo T (Texto), 
nao encontraremos nenhum co- 
mando que nos ajude e teremos 
ainda que utilizar um editor de 



dois programas, um em BASIC 
(listagem 1) e outro em Assembler 
(listagem 2). O programa em 
BASIC e que faz a parte pesada 
do trabalho e o em Assembler 
serve para carregar o programa 
em BASIC para a memoria e 
roda-lo. 

Vejamos os principals pontos 
do programa em BASIC atraves 
da analise de suas linhas: 

130 - Em caso de erro, des- 
via o fluxo de execugao para a 
linha 260. Veja a linha 170 para 
melhor compreensao. 

170 - £ utilizado o comando 
VERIFY de uma forma diferente 
da usual, isto 6, o comando nao 
foi empregado para se verificar 
se um arquivo foi gravado corre- 
tamentc, e sim para se ter certeza 
de que ele existe. Caso ele nao 
exista, o fluxo de execugao do 
de que ele existe. Caso ele nao 
exista, o fluxo de execugao do 
programa 6 desviado para a linha 



230 - 250: Termina o progra- 
ma de forma normal. 

260 - 300: Termina o progra- 
ma indicando o tipo de erro que 
ocorreu. 

Caso o arquivo Texto seja do 
tipo de acesso randomico, nao se- 
ra impresso nada na tela, e o pro- 
grama terminal de forma normal. 

Este programa deve ser salvo 
com o nome de TYPE. 

O segundo programa, feito em 
Assembler, tern duas tarefas. A 
primeira 6 montar nos enderegos 
$3F5 a $3F7, que correspon- 
dent ao enderego de desvio apos 
uma instrugao & um JMP para o 
ini'eio de uma rotina que tern por 
finalidade executar a instrugao 
RUN TYPE. Note que o metodo 
empregado para executar esta ins- 
trugao podera' tambem ser utiliza- 
do em qualquer outra instrugao 
do DOS. Para guardar em disco 
este programa cm Assembler, digi- 
te: BSAVE TYPE.OBJ.AS300, 
LJ24. 



A melhor forma de se usar este 
utilitdrio e colocar dentro de seu 
HELLO a instrugao BRUN TYPE. 
OBJ. Com isto, sempre que vo- 
ce der o boot passara' a ter a sua 
disposigao o programa TYPE, pois 
bastara um simples &para que ele 
seja recupcrado do disco e cxecu- 
tado. 

Uma observagao: antes de cxe- 
cutar o comando &, verifique sc o 
programa que esti na memoria 
jd esti salvo em disco, pois, caso 
contrdrio, ele sera perdido quando 
o programa TYPE for carregado. 



Antonio C. Sal gad o Guimaraes A 
formado em Engenharia MecSnica 
pela Universidade Santa Ursula e 
trabalha. atualmente, como Pro- 
gramador no LNCC/CNPq, onde 
presta apoio tAcnico ao Projeto 
de Desenvolvimento de Software 
em Engenharia MecSnica para Mi- 
ni e Microcomputadores, a/Am de 
colab ora r periodicamente com 
artigos tAcnicos em revistas espe- 
cial izadas na Area da informAtica. 




texto, o que nao i nada pratico. 
Como em muitas ocasioes necessi- 
tamos verificar o conteudo deste 
tipo de arquivo, seja para saber- 
mos se o nosso programa esta 
gravando os dados corretamente, 
seja para bisbilhotar um arquivo 
de um pacote (se voce tiver o 
Lock Smith 5.0, de uma olhada 
nos arquivos para ver que inte- 
ressante) ou mesmo de um jogo, 
apresentamos, a seguir, um utilita- 
rio que podera nos ajudar em 
qualquer destes casos. 

Este utilitario e composto por 



160 e o programa termina avisan- 
do que o arquivo nao existe. 

180 - 190: Abre o arquivo. 

Em caso de erro, significa que o 
arquivo e de tipo diferente (A, B 
ou I) e o programa avisa que o 
arquivo nao e do tipo Texto. 

200: Em caso de erro, desvia 
o fluxo de execugao para a linha 
230. Neste caso, usamos a instru- 
gao ONERR para indicar o fim 
do arquivo, evitando a mensagem 
"FIM DE DADOS”. 

220 : Le e imprime os dados do 
arquivo. Listagem 2 
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{ • EXECUTO TVPE • 
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SACGADO • 
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0800 
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»• HICRO StSTEMOS • 
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I* 


• 






080*1 


8 










0800 
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1 








0300 


10 




ORG *300 






0300 


1 1 




OBJ *300 






0300 


12 


» 








0300 


13 


ST ROUT 


EOU *DD3A 






0300 


14 


OHPER 


EOU »3F5 






0300 


13 


I 








0300 


16 


1 rlONTO VETOR s. 






0300 


17 


1 








0300 A94C 


18 




LDO »*4C. 


1 JMP 




0302 8DF503 


19 




5TO .1MPEI. 






0305 A910 


20 




LDO •INICIO 






0307 BDF603 


21 




STA AMPER-1 






0300 0903 


22 




LDA /INICIO 






030C 8DF703 


23 




STA AMPER-2 






03 OF 60 


24 




RTS 






0310 


25 


1 








0310 


26 


1 1 NIC 10 DO PROGRAMA 






0310 


27 


1 








0310 0918 


28 


INICIC 


LDA 4 RUN 






0312 0003 


29 




ldy -run 






0314 2030DB 


30 




JSR STROUT 






0317 60 


31 




RTS 






0318 


32 


1 








0318 


33 


1 RUN 








0318 


34 


| 








0318 8D84 


35 


RUN 


ME* 8D04 


ICR, 


CTPL-D 


0310 D2D5CE 


36 




ASC "RUN TYPE" 






03 ID OOD4D9 












0320 DOCS 












0322 8DOO 


37 




HE* 8DOO 


ICR. 


00 




38 




END 






•MM END OF 


OSSEM8LV 
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SERVIQO EXPRESSO REMETEMOS PARA TODO 0 BRASIL 



Comercio, Industria e Participagoes S.A 



COMPUTER SHOPPING 



Mesas ^ 

para *V Z$2 - 413 ’ 00 

Microcomputadores 



Cz$1.792,00 



Fabncagao propria • Cores discretas • Desenho moderno 



Nas lojas Brasil Trade Center, voc£ tambem 
encontra video-same, cartucho com jogos, 
som, telefonia, etc., das melhores marcas. 

VISITE UMADENOSSAS 
LOJAS E COMPROVE O 
QUE ANUNCIAMOS 

Matriz: Av. Epitacio Pessoa, 280 
Ipanema-RJ — Tels.: 259-1299/259-1499 

Filiais: Rua da Assembleia. 10 — Loja S-112 
Centro-RJ — Tel.: 222-5343 

Rua Silva Vale, 416 — Cavalcante-RJ 
Tels.: 592-3047/592-3098 

Rua Lopes Trovao, 134/Sala 201 
Niteroi-RJ — Tel.: 710-3659 

Rua Conde de Bonfim, 229 — Loja A 
Tijuca-RJ — Tel.: 284-2031 



EQUIPAMENTOS 



Micros das linhas: Sinclair • TRS-80 • CCE • Unitron • 
Dismac • TK 2000 II • TK 85 • Exato Pro • Impressoras 
Modem • Etc. 



SUPRIMENTOS 



Perif&icos • Disketes • Fitas • Drives • Placas de 
Expansao • Interfaces • Formul^rio Continuo • Cabos 
• Arquivos para Disketes • Etc. 



SOFTWARE 



Programas e Jogos variados para todas as linhas e 
marcas de Computadores 



VIDEOS 



Curso de Ingles em video cassete • Telao • Suporte 
para TV • Transcodificaqao para todos os sistemas • 
Fitas: VHS - BETA-U-MATIC e para limpeza de cabec;a» 
Baterias para 2 e 8 hs. • lluminadores • Cabos de 
extensao para Camaras • Bolsas para Camaras e Videos 



OFERTA VALIOA COM A APRESENTAQAO OESTE ANUNCIO 



trs-80 trs-80 trs-80 trs-8 



Cadastro de programas 

Heber Jorge da Silva 



Cansado de procurar este ou aquele programa em seus diver- 
sos disquetes? Acha ruim quando tem que pesquisar, disco 
ap 6 s disco, k procura de espa^o vago para alocar um determi- 
nado programa? Preocupado com o controle dos backup de 
seus programas? 

Se voce estd tendo esses problemas, n5o se preocupe mais: 
este programa, desenvolvido em diskbasic para a linha TRS-80 
modelos I/ 1 II, com pelo menos um drive, permitira a voce, sem 
perder tempo com digita^So, cadastrar ate 1000 programas e 
arquivos gravados nos seus disquetes. Com ele, voce pode ainda 
saber, atrav^s de listagens na impressora ou video, em qual dis- 
co est4 alocado cada programa, bem como a disponibilidade de 
cada disco em granules e FDES. 

COMO UTIL1ZAR 



Este programa 6 dirigido pelo menu apresentado na figura 
1 , o qual pdde ser acessado de qualquer parte do programa 
atravls da tecla Clear ou digitando-se a palavra menu. 

Para cadastrar programas dos discos, basta escolher a Op^ao 
1 , colocar disco ap 6 s disco nos drives e ir pressionando a tecla 
referente ao numero do drive (0 a 3), no qual se encontra o 
disquete a cadastrar. Nao existe limita^ao quanto ao numero 
de discos cadastrados, porem o de programas estd limitado a 
1000. 




Se voce inseriu e/ou eliminou programas de um disco, em 
poucos segundos podera atualizar as informa^Oes referentes a 
esse disco com um mi'nimo de esfor^o: ao escolher a Op$3o 2, 
o programa Ihe pedira para entrar com o nome do disquete a 
alterar. EntjJo, o programa eliminara do cadastro todas as refe- 
rencias desse disquete e executara um recadastramento do 
mesmo. 

Escolhendo a Op^ao 3, o leitor podera gravar todas as in- 
forma<; 6 es do cadastro num arquivo em disco. Ja a Op<?ao 4 
permite que voce veja as informa<;5es do cadastro no video ou 
em relatorios gerados na impressora. Essas informa 9 < 5 es podem 
ser listadas em ordem alfabetica por programa ou por nome de 
disco, em ordem crescente ou decrescente (de acordo com o 
que voce escolher na Op^ao 5). 

Se o cadastro estiver ordenado por disco, a listagem conte- 



ra, alem dos nomes dos programas e discos onde estao aloca- 
dos, um resumo da disponibilidade em cada disco em granules 
e FDES, bem como um resumo final com o total de progra- 
mas, discos, granules e FDES. Caso o cadastro esteja ordenado 
por programa, a listagem conterd apenas seus nomes, os discos 
onde se encontram e o resumo geral. 

Atrav^s da Op 9 §o 5, voce poderd ordenar o cadastro por 
programa ou por nome de disco, na ordem crescente ou de- 
crescente. Finalmente, a Op 9 fo 6 lhe permite finalizar a opera- 
910 , saindo para o BASIC. 

No menu do programa nSd consta op^So para leitura do 
arquivo que contfrn o cadastro, porem esta opera 9 §o serd rea- 
lizada sempre que voce escolher as Op^Oes 2 (altera) ou 4 (im- 
prime), sem que os dados do cadastro estejam na mem 6 ria do 
micro. Neste caso, voce serd solicitado a entrar com o nome do 
arquivo que contem o cadastro a ser processado. 



1 REM 

2 REM ••» UTIL I TAR 10 PARA CADASTRAMENTO DE PROGRAMAS ••• 

3 REM ... EM DISCOS ... 

4 REM ••• Por Heber Jorge de Sllve - Brasilia DF • 1984 ... 

5 REM 

6 CLS: PR I NT “Urn momento . . . “ ! CLEAR 27000: DEF I NJA-Z : CMD"BREA) . N" : 0 
NERRORGOTO 58 

• MP-79«?:DIM NP*(MF > ,OP*(b) ,US(5B) ,P(2) 

B BR*-STRING«(12.32i:B*-STRING*<63.45>:I*-"- CADAFROG V« 2.0 - C 
edastro de Programas em Discos •" : AU*= " < I9B4 > por Heber Jorge da 
Si 1 va’:L*-CHR* (30) :V*-CHR*(31> : AP*-STRING*( 12, 191 ) : ME»-"MENq" 

9 Al»-STRING*<15.32):Rl*«Al**"-;< ESCOLHA a opc ao. . . " : R2S »A 1 *♦ " . . 
.opcao a ESCOLHA - >“ : AI - 15: NP— 1 : VI- 15360: TC« 1 440O:LP- I 0425: FO-O 
:GR-o 

10 FOR J»l TO 6 : READ OP*(J):NEXT J : DA T A CADASTRA Program** do 
Disco. ALIERA Cadastro de um Disco, GRAVA o Cadastro Atual . IMPR 

IME o Cadastro, ORDENA o Cadastro. F IM de Operacao 

11 FOR J-0 TO 58: READ US(J):NEXT J 

tr i*o:hd»-"-:fd«-"“:grs=-":ao»=-"“:gosubi io:print:print:print b» 

:0*J90:F0R J-l TO 6:PRINT8Q, J" - "OP* (J >: 0-0*67: NEX T J:PRINT B*: 
IF NF'O I HEN OD-O: PRINT "Nao ha" Cadastro na Memor i a “ELSE II 0D**0 
IHENFT<INT"Cadastro Nao Ordenado" 

13 IF OD PR I NT "Cadastro Ordenado por “i:IF SDPRINT“DIBC0“EL5EPR1 
NT "PROGRAMA" 

14 PRINT V*:CV*-“123456":POKEVI-»261, 1B3:F0KEVI *277. 187:P0KEVI 09 
7 , 183: POKEV 1*313, 187: PRINT8284, “M E N U”l 

15 PS-262: GOSUB I25:G0SUB 18:G0SUB 19:PRINT®284, " MENU “I 

16 PS-298: GOSUB 125IG0SUB I9:G0SUB 18: PRINT8284. "M E N U"i 

17 GOTO 15 

18 D*»RI *:FUR X«1 TO LEN IDS) * 1 : LSET R3*»M1 D* < DS, X ): GOSUB 20INEXT 
X: RETURN 

1« DS-R2S1F0R X -LEN IDS) TO 1 STEP-1:LSET R3*-MI D* ( D* . X > : GOSUB 20: 
NEXT X: RETURN 

20 IS-INEEVS: IF KS— " “ THEN FOR T-l TO 12:NEXT T : OUT 255,I:0UT 25 
5,o:returnelse K-INSTRICVS.KSI 

21 IF K-0 THEN RETURN 

22 C-I : ON I GOT029, 45, 55, 65, 23, 105 

23 IF NP'-.O THEN 12 ELSE OD— 1 

24 MS- “ORDENACAO por nome de <.D isco ou de P rogr ama“ : GOSUB 109 
: CVS- “DdPp”: GOSUB 106:SD»K'.3 

25 MS- “Em ORDEM <C rescent* ou <D>ecrescente ■’“IGOSUB 109:CVS=“C 
c Dd " : GOSUB 1 06 : SB-). -2 

26 IF SB AND NOT SD THEN S-l ELSE IF NOT SD AND NOT SB THEN S-2 
ELSE IF SD AND SB THEN S-3ELSEG-4 

27 GOTO 39 

28 IF AD THEN AD-O’.GOTO 12 

29 NDS* ““:MS-"Apos insenr o Disco, tecle o numero do Drive <de 
O a 31”: GOSUB 109 

30 CV*-"0123“:GOSUB 106: ON ) GOSUB 121, 122, 123, 124 

31 1«0:ND»ND*1 : PR INT: PRINTS*: PRINT TAB (25) “Favor aguar dar . . . “ : FO 
RJ— 153 7 1 TCI 1 5378: ND**»ND**CHR* (PEEK <J) > :POKEJ, 1 91 : NEX T J : FORJ- 1 5402 
T015403: FD4— FD4*CHRS (PEEK I J ) ) : POKEJ , 191 : NEX T J: FORJ- 1 54 12T01 54 1 4: 
GR*“GR*»CHR* ( PEEK U> I : POKE J . 191 : NEX TJ : P- 15488: D= 15: NP-NR* 1 

32 FD— F D*VAL (FD*) : GR— GRtVAL (GR*) 

33 P1=P: IF NP MP THEN NP-NP-1 : GOSUB 119:G0T0 12 

34 FOR J-0 TO ll:NP*(NP>=NPS<NP)»CHR*(PEEK(Pl*J> ):NE*T J : 1 = I ♦ l 



32 
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35 IF PI -15488 AND NP* (NP) »BR« THEN ND-ND-1 

36 I F NP* ( NP ) = BR* TMENNF * I NP) = ” “ 1 NP-NP- 1 : ND** “ “ : F DS = “ “ : GP* = " “ : GOT 
O 28 ELSE PRINT8P1 -VI .AT *; :PI =F 1*D:NP* <HF > -NF* 'NT > »ND*«I B»*C.R* 

37 PRINT8960, NDl “ Dl scos, “NF» 1 " Programas"! : IF I /4=INT ( I /4i THEN 
P-P*64!NF-NP*1 :GOTO 33 

38 NP-NP* I : IF NP>MP: THEN NP-NP 1 : GOSUB 1I9;G0T0 12 ELSE 34 

39 PRINT TABI30) "ORDENANDO . . . " I : 0NS60T 040.41 ,42.43 

40 CMD"0“ ,NP* 1 . -NPS (O) :GOTO 44 

41 CMD“0“ • NP- 1 , NF’l (0)1 GOTO 44 

42 CMD“U",NP*l . -NTS <0l < 13,8) :GOTO 44 

43 CMD"0",NP»1,NP*(0> (13,8) 

44 SA*» "Or denacao " : GOSUB Ill:GOTO 12 

45 AD— UIF NF -OTHEN 46 ELSE GOSUB 113 

46 M*^ “Nome do Dlsco“:GOSUB 109; INPUT NDS: PRINT® 448, BS1 : IF NDS-M 
E» THEN 12 

IF LEN (NDS ) 8THEN46ELSE IF LEN (NFS ) ■ QTHEN ND* ND4-S IRIUG* (B-L 
EN(ND»I .32) 

48 PRINT®3B4,L*ti*394. "El iminando registros do Disco “;ND*s:--" 

49 IF MI D* (NFS ( X > , 13,6* NDS THEN 51 

50 P ( O) «0: P ( 1) - VARPTR (NFS>0)i:P(2)«X: DEFUSR-VARP TR I US lO) • : I * JSR ( 
VARPTR(PIO) ) )S EL-EL M:NP»NF-l: IF EL-1 THEN FD-FD VAL (MID* INI » > 
.21 , 2) ) :GR-OR-VAL (MID*(NP» IX) ,23,3) ) :GOTO 52 ELSE 5. 

51 X-X.I 

52 IF X >NP I HEN 53 ELSE 49 

53 PRINTiJ384,L»i : IF EL-OTHENNM*-“Nao cm i stem registros do disco 
" »NDSELSEM*-STR* (EL) ►” Registros eliminados do Disco ".ND* 

54 GOSUB 109: GOSUB 120: IF EL-0 THEN 12 ELSE EL-O: ND-ND- 1 : 0D-<>: GO 
TO 29 

55 IF NP< OTHEN 1 2ELSEM*- “Nome do Ar qu 1 vo ”: GOSUB 109: INPUT A0*:PR1 
NT 84 48, B» I : IF AOS-ME* THENl 2ELSE IF LEN I AO* i 12 OR LEN ( AO* • 1 THE 
N 55 

56 PR1NT8384,L*:8410, "Um m omen to . . . “ I : 0PEN"0" , 1 , AO*: PR1 NT • 1 , NPt 
ND! FD, GRi SDl OD: FOR J-0 TO NP:PR!NT* 1 . NP* I J ) 1 PRI NT9407 , NF * . J . i : NE 
XT J 

57 SA*-"Gravacao“: GOSUB llllGOTO 12 

58 IF ERR/2-1 21 THEN ONERRORGOTO O 

59 IF ERR/2-1-54 THEN NM*-”NAO EXISTE ESTE AROUIVO |n 

9: GOTO 64 

60 IF ERR/2-1-58 THEN NM*-"ERRO DO S1STEMA OPERAC IOMAL “ : GOSUB l" 
9:G0T0 64 

6] IF ERR/2-1-68 UR ERR/2-1-69 THEN NM»— " D 1 SOUE TE FRUTI G I DO 1 " : GO 
SUB 109: GOTO 64 

62 IF ERR/2-1-62 THEN NM*— “FALTA ESPACO NO DISCO":GOSUB I09:80T0 

64 

63 UNERRORGOTO OIGOTO 12 

64 GOSUB l 201 CLOSE: RESUME 12 

65 IF NP< 0 THEN GOSUB 113 

66 M*-"Salda para a Impressora (S/N)"SGOSUB 1 09: CVS-“SsNn" : IJJSUB 
106: IF K>2 THEN 86 

67 MS- "Prepare a Impressora e tecle RETURN" : GOSUB I091CVS-CHR* ( 1 
3 > : GOSUB 1 06 : PG- 1 : ONSO— 2 GOSUB 116,115 

60 M»-“Tecle “-CHRS (91 ) : Se Desejar In t er r omper “: GOSUB 109: IP 

SD THEN 75 

69 FOP J-0 TO NP STEP 2 

70 LPRINT LEFT* I NP* I J ) , l 2) TAB I 15) MID* <NP« I J ) ,13.8) TAB! 35) LEFT* (N 
P*(J»1 ) , 12) TAB(50)M!D«<NP*(J-1 ) , 13,8) : IF PEE) (TC)AND 8 THEN 85 

7 1 IF PEEK (LP) >58 THEN GOSUB 1!8:G0SUB 115 

72 NEXT J 

73 LPRINT B»: LPRINT" TOT AL: “NP* 1 “ Programas e Arquivos, om'ND" Dl 
scos": LPRINT “A disponibilidade Total e’ de"FD" FDES, e“GR“ Granu 
1 es" : LPRINT B* 

74 FOR L- 1 TO 66 -PEEK I LP ): LPRINT: NE XT L: SAS-" I mpr essao" : GOSUB II 
I : GOTO 12 

75 SD*-MID*(NPS(OI , 13,81 :J—1 

76 J-J- 1 : IF J >NP I HEN 73 

77 GOSUB I121LPRINT MID* (NPS I J ) , 1 3, 8) TAB l 15 > LEF TS . NF S I J ) , 12) 8 : IF 
MID* (NP*(J*1> , 13, 8)< >SD* THEN LPR I NT : GOTO 83 ELSE J-J-l 

78 IF J >NP THEN 73 ELSE GOSUB 1121 LPRINT TAB 1 35) MI D* I NF * (.1 ) , 1 3. 0 
I TAB (50) LEFT* INP* I J ) , 12) 

79 IF MID* (NP* (J-l ) , 13,8)< >SD* THEN 83 

80 IF PEEK! TC> AND 8 THEN 85 

81 IF PEEK (LP) >58 THEN GOSUB 110:GOSUb 116 

82 GOSUB 11 2: GOTO 84 

83 LPRINT 6*:LPRINT“D1SP0NIBIL1DAD£ DO DISCO "IMID* (NP* ( J > , I 3, 8) 
“FP*“ FDES e "GR*“ Gr anul e*“: LPR INT 6* : LPR INI : IF PEEK(LP) >58 

THEN GOSUB 11 8: GOSUB 116 

84 SD»-M I D* (NP* (J»ll,13,8): GOTO 76 

85 M*-“Oper acao Cancelada pelo Operador ": GOSUB 109: GOSUB 1 20: GOT 
0 12 

86 SD*-MID*(NP*(0) . 13,8) : PRINT01 92 . V*i W 1 92, I :P-32o: IFSD THEN 95 

87 PRI NT “PROGRAMA'TAB ( 15) “FONTE“TAB ( 40) "PROGRAMA “TAB (55) “FONTE": 
PRINT B* 

8B FOR 1-0 TO NP STEP 2: IF SD THEN 95 

89 PR1NT9P,LEFT*(NP*(I) . 12) TAB ( 15) MID* (NP* ( I ) , 13,81 1 

90 PRINT TAB ( 40) LEFT » (NP* ( I ♦ 1 ) , 12) TAB (55) MID* (NP* ( I -1 ) . 13,8) 

91 P-P-64:IF p>896 THEN P-320: FR1NT9977, "Tec 1 e RETURN para contl 
nuar "S :CV*«CHR*( 13): GOSUB 106: PR INT8320, V*l 

92 NEXT I 

93 PRINT B*: PRI NT " TOTAL: "NP+ 1 "Progr ama* e Arquivo*, em“ND" Disco 
s" : PRINT "A disponibilidade total e de"FD" FDES. e"GR' Granules" 
IPRINT B*: IF NOTSD THEN GOSUB 106: PR1NT®192. VS1 : GOTO 12 ELSE FR1 
NT"Teclc -.CLEAR.' para o Menu"! 

94 K«— INKEY*: IF K*— “ “THEN 94 ELSE IF K*-CHR* <31 ) THEN 12 ELSE 94 

95 CLSIPRINT". Tecle BREAK > p/ "CHR* ( 34 ) "congel ar "CHR* ( 34 ) •• a 1 
istagem, ■- CLEAR > p/ o Menu •":PRINT B»: SD*=MI D* (NP* (O ) . 1 3, 8) : J- 

I 

96 J-J+l: IF JNP THEN 93 

97 GOSUB 1121PRINT MI D* ( NP* ( J ) , 1 3. 8) 1 AB ( 1 2) LEF T* ( NP* ( J) , 1 : IF 

M I D* ( NP* (J— 11,13,8)* SD* THEN PRINT:GOTO 102 ELSE J-J-l 

98 IF J >NP THEN 93 ELSE GOSUB 112:PR!NT TAB (35) M I D* (NP* ( J ) . I 3, B> 
TAB(40)LEFT*(NP*(J), 12) 

99 IF PEEK (TO AND 2 THEN 12 

100 IF MID* (NP* (J-l ), 13.8) SD«TMEN 102 

101 GOSUB 1 1 2: GOTO 103 

102 PRINT B*:PRINT"DISF-0N1BILIDADE DO DISCO "IMID»(NP*< Ji . 13.8) I 
-: "FP*" FDES o "GR*" Gr anul es" : PR INT B*:PR1NT 

103 SD*— MID* (NP* (J-l), 13, 8) 

104 IF PEEK (TC) AND 4 THEN 104 ELSE 96 

105 M*-“F l nal liar Realmente “* (S/Ni":GOSUB 109: CV*-"SsNn " : DOSU 
B 106: IF K -2 THEN 12 ELSE CLS: CLOSE : CMD" BREA! . V" : CLEAR 50: END 

106 PR I NT 8 1 66 ."Tecle "CHR* ( 34) "CLEAR"CHR* ( 34 ) " para o MENU “ i 



107 K*— INKEY*: IF K»- " THEN 106 ELSE IF K*=CHR*131> 1 HEN 12 

108 K-INSTR(CV*,K*> : IF K-0 THEN 106 ELSE PRI NT«1 66. L» I : RE TURN 

109 GOSUB 110: PR I NT® 1 92, V* 1 8256, * : PRINT TAB ( INT ( 1 64 -LEN ( OP* (C) ) ) 
/2> ) OP* (C) 1 : PR1NT®320, B*s 1*448, B», 8384 , ; : PR INT TAB . INT ( (64-LEN (M* 
) >/2) )M*i: RETURN 

110 PRINT80, : :PRINT TAB( INT ( 'o4-LEN (T*) I /2) ) T*:L»:PR1NT b*: PR INI 
au«:return 

111 CLOSE l:M*="OK’ Ter mi nada a operacao de "*SA*:GOSUB lo9:G0S 
UB 120: RETURN 

112 FP*-M1 D* (NP* (J>,21,2): GR*-M1 D* ( NP* ( J ) , 23, 3) : RETURN 

113 M*= "Nome do Ar qu I vo “ : GOSUB 109: INPUT AO*: PRINli»448. B»! : IF AO 
*-ME* THEN 12 ELSE IF LEN (AO* ) 12 OR LEN(AO*l.l THEN 113 

114 PRINT9384, L*1 8410, "Um momento . . . " I : OPEN" 1 “ , ) , A0»: INPUT » 1 . NF 
,nd.fd,gr,sd,od:for j-o to np: inputsi ,nf-*i ji :print®403.np* ( j> : :n 
EXT J: SA*-"Lei tura": GOSUB 111: RE T URN 

115 Y*«“ PROGRAMA" : Z*- "FONTE" : GOTO 117 

116 Y*-"FONTE" : Z*-"PROGRAMA" 

117 POKE LP.OILPRINT T*1 :LPRINT TAB ( 54) "Pag I na" I PG: LPR INT B*:LPR 
INT Y*TAB (15) Z*TAB ( 35) V*T AB (50) Z»: LPRINT B*: LPR INT : RETURN 

lie LPRINT:LPR1NT TAB(53) •• (continual " : PG-PG- 1 : FOR L-l TO 60-PEEl 
(LP) :lprint:next l:return 

119 PR 1 NT 8980 , "NAO CABEM MAIS REGISTROS ..."1 

120 FOR T-l TO 800:NEXT T:RETURN 

121 CMD"DIR I":RETURN 

122 CMD-DIR 1 1": RETURN 

123 CMD-DIR 2 I": RE TURN 

124 CMD-DIR 3 I " : RETURN 

125 R3*-" ":POKE VARPTR (R3*> ,A1: POKE VARPTR (R3* > -2. INT ( PS/256 1 *6 
0:PQKE VARPTR (R3* I -1, PS- I NT (PS/ 256) -256: RETURN 

126 DATA32717, -6902. -7715, 28381. -8958, 870, 11237, 11094. 11102. I I OS 
1,11051 .32299,28381,-8956. 1382,-6699, -13489.-13343 

127 DATA10553. 10731,-17.333. 12345,-13320. 103 1 1 . - 1 61 20, -536 /. 2497. 
6379,-10126,-15935.-5367. 1545.20224, -13347, 17920.4896 

128 DATA-5163, -6903, -IB453, 21229, -15899,-1 1007,552, -20243,6187. 1 
1027,-18459, 17133. 91B9, -4601,-6830.-7743, 10449. 4862 

129 DA7A-5192, 15943,30464,4139.-13828 



Cadastro 



Formado em Administraqao de Empresas pela UDF, Heber Jo rye da Sil- 
va trade lhe atual manta na Telebrasllia, onde exarce atividades hgadas 4 
programacSo de microcomputadores. 



Projetos & Servipos 



'Slstemas 1 



Digitapao nao 6 mais problema 

pego enviarem pelo correio o servigo 

fc^alsave 

CzS 45.00 CzS 18.00 

Programas de mteresse MS n. 0 . p6g. 



Projeto MICRO BUG 

n Sim. desejo receber a frta MICRO BUG. 
com cartfio de refer§ncia e manual, 
pelos quais pagarei CzS 75.00 

ASSINATURA ANUAL 

[~~| Sim, deseio fazer uma assinatura 
anual da revista Micro Sistemas. 
pela qual pagarei CzS 1 40,00 

Para isto estou enviando cheque no valor de 
CzS 3 ATI Editora. 

ATI EDITORA LTOA 

Av.: Presidente Wteon. 165/1210 - CEP 20030 
Rio de Janeiro/RJ - Tel.: [021] 262-6306 
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zx spectrum zx spectrum zx spectrum zx spec 



Sintevox 

Paolo F. Pugno 



“S6 falta falar". Isto e o que muitos dizcm 
quando podem ver com os proprios olhos ou 
experimental com suas maos o que um micro 
da linha ZX Spectrum 6 capaz de fazer. Pois 
bem, vamos suprir esta falta e lan^ar um novo 
desafio: agora s6 falta mesmo e ele pensar! 

Aproveitando a sai'da de som de nosso mi- 
cro. podemos realizar coisas muito interessan- 
tes, e uma delas c' a emissao dc sons que oor- 
respondam a voz humana. Isso. podem dizer 
alguns, dcmandaria tabclas quilometricas de- 
terminando a pronuncia dos varios fonemas, 
um trabalho decerto nao facil Porem, ha ou- 
tro caminho: fazer a sintese dos sons vindos 
de uma fita cassete. Deste modo, nosso micro 
poderd falar com nossa voz ou ainda cantar 
uma cangao (um trecho dela) com a voz do 
cantor preferido. Ldgico, a sai'da de som nao 
sera de alta-fidelidade, mas e perfeitamente 
possivel distinguir as palavras e sons, ainda 
por cima com a opcao de variarmos a veloci- 
dade de execu<;ab. vejamos assim como isso 
pode ser feito. 

A PORTA 254 

A porta de entrada e sai'da 254 (FE em 
hexadecimal) e uma das mais importantes do 
micro: quando utilizada como input, le o te- 
clado e contem o cstado da entrada EAR do 
casscte, no bit 7 (D6). Portanto, o que temos 



a fazer e monitorar esta porta e ir anotando os 
valores que formos encontrando na memoria. 
Depois faremos o caminho inverso: examina- 
remos a memoria e, de acordo com as infor- 
matics estocadas, iremos pilotar a sai'da de 
som do micro atraves da mesma porta 254. 
Quando for utilizada em output esta porta, 
alem de controlar o som, tambem pilota a cor 
do BORDER. Portanto, devemos tomar cui- 
dado com isto, se quisermos evitar um cstra- 
nho piscardo BORDER. 

O PROGRAMA 

O programa cm si e muito simples: uma 
pequena rotina em linguagem de maquina fara 
todo o servi^o. Vou explica-la passo-a-passo: a 
primeira coisa a fazer e' desabihtar as interrup- 
p5es; sintetizar sons com um computador ja 
nao e normalmente tarefa facil, imagine -se, 
entao, sendo interrompido 50 vezes por se- 
gundol Em seguida, carregamos os registrado- 
res HL e DE com o endere^o inicial do bloco 
de bytes reservado a mcmoriza<;ao dos dados e 
com o comprimento deste bloco. 

Iniciamos, portanto, um ciclo de oito re- 
petiqoes: kmos a porta 254, verificamos seu 
bit D6 e, de acordo com seu estado, setamos 
ou nao o bit DO do registrador C. Este regis- 
trador, entao, sofrera uma rota^ao a esquer- 
da, liberando espaqo para mais um bit. Um pe- 



queno retardo tambem e executado. 

Depois que o ciclo for executado oito ve- 
zes, o valor de C sera cstocado no endere^o 
indicado por HL, que sera incrementado logo 
apos. DE sera decremcntado, e, se seu conteu- 
do for zero, o controle retomara ao BASIC. 
Caso contrdrio, comc^ara tudo de novo, des- 
de o ciclo de leitura da porta. Isto e feito com 
o digitalizador. Ji, com o sintetizador, exccu- 
tamos exatamente a opera?ao inversa: carre- 
gamos em C o valor do cndcre^o indicado por 
HL e, examinando-o bit por bit, mandamos 
ou nao um click a sai'da de som (bit D4) da 
porta 254. Essa opera^ao e feita oito vezes, 
apos o que incrcmcnta-sc HL, dccrcmenta-se 
DE, seu contcudo e examinado e, sc for dife- 
rente de zero, volta-se ao im'cio. Caso contra- 
rio, retorna-se ao BASIC. 

Outra coisa: no comedo de cada rotina, as 
interrup^oes foram desabilitadas atraves da 
instru^ao DI. Antes do retorno ao BASIC, e 
nccessario que clas sejam habilitadas nova- 
mente, portanto, utilizando uma instruQao El 
antes do RET. 

COMO UTILIZAR AS ROTINAS 

As duas rotinas estao situadas acima do 
endere^o 32768, mas nao ha restrisocs quan- 
to as suas posi^oes na memoria, pois nao con- 
tem nenhum salto absoluto. No entanto, sc 
forem posicionadas nos primeiros 16 Kb de 
RAM poderao nao funcionar perfeitamente, 
ja aue a ULA tern prioridades nesta area de 
RAM. Esta area contem o mapa de video, o 
qual deve ser explorado pcriodicamente, a 
fim de enviar uma imagem a tevf. Se a UCP 
tentar acessar esta parte da mcm6ria enquanto 
a ULA estiver realizando este trabalho, ela 
tera seu clock suprimido at6 que a ULA o te- 
nha terminado. Normalmente, isto nao causa 
grandes problemas, mas, no nosso caso, signi- 
ficaria uma temporiza^ao irregular do pro- 
grama, prejudicando o resultado final. Portan- 
to, aten^ao tambem com isto. 

Para utilizar as rotinas, voce deve coloqar 
uma fita com a mensagem gravada no seu gra- 
vador, uma musica mesmo serve. Digite 
RANDOMIZE USR 32768, de partida no gra- 
vador e aperte ENTER. O programa memori- 
za cerca de 10 segundosde sons, contudo isto 
pode ser altcrado mexendo-se no valor dos re- 
gistradores DE, no im'cio de cada rotina. 

A temporiza^ao tambem pode ser alterada, 
mas ha' algumas limita$6es: quanto maior for, 
mcnos memoria utilizaremos, porem a quali- 
dade tambem sera baixa. Uma temporizaijao 
pequena gasta a memoria rapidamente, mas a 
qualidade do som de sai'da e bem melhor. A 
sugestao e que se mexa a vontade com o pro- 
grama, tentando encontrar a configura^ao que 
melhor se adapte as suas necessidades. Para 
ouvir o que foi gravado, digite RANDOMIZE 
USR 32805 e... curta um bom som I 

* 



Paolo Fabrizio Pugno cursa atualmente o pri- 
meiro ano da Faculdade de Engenharia Indus- 
trial (SP) e possui um ZX Spectrum, com o 
qual desenvolve programas. 



5 POKE 23609,55s RESTORE : CL 
EAR 32767s FOR f-0 TO 77s READ r 
s LET a«<32768+f > s POKE a.zs NEX 
T f 

10 DATA 243,17,24,121,33,232,1 
28,14,0,6,8,219, 254 , 203 ,119,40,2 
,203,193, 203 ,9,62,6,61,32, 253 ,16 
. 239 , 1 1 3 , 27 , 35 , 1 23 , 1 78 , 32 , 227 , 25 
1,201 

20 DATA 243,17,24,121,33,232,1 
28,78,6.8,58,72,92,15,15,15,203, 
121,40,2,238.56,211,254,203,9,62 
,4,61,32,253,16,233,27,35,123,17 
8,32,224,251,201 
100 BRIGHT is CLS s BORDER 5 
110 PRINT AT 0,01" SINTETIZAD 
OR DE SONS E VOZ "»AT 5,7»"Cc) 

— Carregar som Co) 

- Ouvir" 

120 LET h“150s LET p=INT <RND»4 
>♦1 

130 IF h< 106 THEN GOTO 120 
140 PLOT 0 , h s DRAW OVER 1| INK 
p » 255 , 0 : LET h=h-l 
150 IF INKEYt®"" THEN GOTO 130 
160 LET a»=INKEYts IF a*="o" OR 
a§*"0" THEN GOTO 300 
170 IF aS< >"c" AND aS< >"C" THEN 
GOTO 130 

180 CLS s PRINT AT 0,O» PAPER 1 
» INK 5 i FLASH It" CAR 

REGAHENTO 

190 PRINT AT 1 0 , 0 ? "A partir de 
guc endereco voce quer carrega 
r os sons? ->" 5 ! INPUT e* PRINT 
FLASH 1 ;e 

200 IF e< 33000 THEN CLS s GOTO 
180 



210 PRINT AT 13,0»"Quantos byte 
s serao reservados para o som? 
-> " | AT 1 4 , 1 4 j » INPUT n« PR 

INT FLASH 1 »n s IF n*e>65000 THEN 
GOTO 210 

220 LET b-INT <e/256)f LET c«=e- 
b»256 s POKE 32773,cs POKE 32774, 
bs LET b= INT (n/256)« LET c»n-b» 
256 : POKE 32770.es POKE 32771, b 
230 PRINT 00 ; AT l,0;"Llgue o gr 
avador, digite enter": PAUSE 0 
240 BORDER 2: RAND USR 32768s 8 
ORDER 5 

250 CLS s GOTO 100 
300 CLS t PRINT AT 0,0; PAPER 4 
t INK 7; FLASH ii" REP 

RODUCAO 

310 PRINT AT 10,0»"Endereco ini 
cial do bloco? (ENTER= o ul 

timo usado) INPUT a* 

t IF aS="" THEN GOTO 330 
320 LET e=VAL ais LET b*>INT <e/ 
256): LET c«e-256*b: POKE 32773, 
c: POKE 32774 , b t IF e<33000 THEN 
GOTO 300 

330 PRINT at;AT 14,0;"Numero de 
bytes do bloco? (ENTER* o 

ultimo usado) INPUT 

at : IF at="" THEN GOTO 350 
340 LET n=VAL at: LET b=INT <n/ 
256): LET c=n-256«b: POKE 32773, 
c: POKE 32774 , b 

350 PRINT at: IF n+e)65000 THEN 
GOTO 300 

360 BORDER 4s RAND USR 32805: B 
ORDER 5: GOTO 100 
500 SAVE CHRt 18+CHRt 1+"SINTEV 
OX" LINE 1 
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MICRO SISTEMAS. abril/86 




ENERGIA DE 
EMERGENCE PARA 
MICROCOMPUTADORES 



GERATRON sempre foi a 
solugao ideal e economica para 
alimentagao de emergencia de 
microcomputadores da linha 
Apple e TRS-80. 




GERATRON 200VA 



Agora voce tern disponivel o 
GERATRON PC 500. Com 
potencia de 500VA nominal e 
1 500VA de pico e dotado de 
chave de transference estatica 
e sincronizada, o GERATRON 
PC 500 garante o 
funcionamento ininterrupto dos 
micros compativeis com 
IBM-PC, na configuragao mais 
completa, durante varias horas 
apos a falta de rede eletrica. 

Mas se voce precisa de mais de 
500VA, a GUARDIAN tambem 
dispoe do modelo 750. 



GERATRON 6 marca 
registrada da GUARDIAN. 
EQUIPAMENTOS ELETRdNICOS LTDA. 
MATRIZ 

Rua Dr. Gamier, 579 - Rocha 
CEP 20971 - Rio de Janeiro - RJ 
Tels.: Geral (021)261-6458 
Vendas (021) 201-0195 
Telex (021)34016 
FILIAL 

Alameda dos Ubiatans, 349 
CEP 04070 - SSo Paulo, SP 
Tel 101 1)578-6226 




GUARDIAN 

ENERGIA A TODA PROVA 






apple apple apple ap 



Felipe Fessler Vaz 



Limpador de cabecote 



Uma das principals preocupa^Oes dos usuarios 6 quanto ao 
drive. Ele 6 uma das pe9as mais importantes do computador, 
pois quando falha, ningudm sabe o que pode acontecer. 

Este programa permite a voce limpar o cabe90te do seu 
drive, um dos cuidados que todo usuario deveria tomar. 0 
programa passa o cabe90te quatro vezes em cada trilha do dis- 
co, em alta velocidade, tirando a sujeira. 

Aldm de utilizar este programa, observe que voce terd que 



tomar outras precau95es com o seu drive. Lembre-se que ele 
6 um aparelho frdgil e, portanto, deve ser tratado com cuidado. 
Verifique sempre a velocidade, tomando ainda o cuidado de 
nSo abrir ou fechar a porta do drive quando ele estiver em fun- 
cionamento. 

Felipe F. Vaz cursa atualmente e primeira s4rie do segundo grau no Co- 
Idgio de Aplicapio, da UFRJ. Ele possui um Exato Pro onde desenvolve 
programas em BASIC. 



DLIST 

io : 

20 REM LIMPADOR DE CABECOTE 
30 REM por Felipe F. Vaz 
40 REM para Micro Sistemas 
50 REM agosto/85 
60 : 

100 FOR I = 816 TO 844 
110 READ D: POKE I,D 
120 NEXT I 

130 HOME : POKE - 16368,0: HTAB 
14 

140 INVERSE : PRINT "LIMPADOR DE 
CABECOTE": NORMAL 
150 VTAB 7: PRINT "QUAL DRIVE < 

1 OU 2, 0 TERMINA)";: GET A 
160 PRINT : IF A = 0 THEN HOME 

: END 

170 IF A < >1 AND A < >2 THEN 

130 

180 VTAB 11: PRINT " APERTE ' CR 
' PARA COMECAR " 

190 IF PEEK < - 16384) < > 13 AND 

PEEK ( - 16384) < >141 THEN 

180 

200 VTAB 7: CALL - 958: VTAB 12 



210 FLASH : PRINT "LIMPANDO 0 DR 
IVE "A 

220 VTAB 24: PRINT "APERTE ESC P 
ARA PARAR": NORMAL 
230 POKE - 16368,0: POKE 818, A 
240 FOR VO = 1 TO 4 
250 VTAB 15: PRINT "VOLTA "VO" D 
E 4" 

260 FOR T = 0 TO 34: GOSUB 310 
270 NEXT T , VO 

280 VTAB 12: A = PEEK ( - 16336) 
+ PEEK ( - 16336): HTAB 8 
290 INVERSE : PRINT " PRONTO!" 

: FOR J = 1 TO 2000: NEXT 
300 GOTO 130 

310 IF PEEK ( - 16384) = 27 OR 
PEEK ( - 16384) = 155 THEN 





POP 


: GOTO 130 




320 


VTAB 


17: PRINT "TRILHA "T 


" D 




E 35 


": POKE 820, t: CALL 


837 


330 


RETURN 




340 


DATA 


1,96, 1,0,0,0,65,3,0, 


128 



,0,0,0,0,0,96, 1,0,0,239,219, 
160,48, 169,3,32,217,3,96 



Limpador 
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MICRO SISTEMAS, 



GARANTIA TOTAL • MANUAIS INCLUSOS 



USX • NOT BIT E EXPERT • JOGOS EM FIT* 



not 
F402 
HCJ 
F404 
MOJ 
FM 
N 07 



Ml# 

Mil 

MU 

MU 

MU 

MU 

Mil 

M17 

Mil 

MU 

MX 

MJ1 

MB 

MX 

MX 

MS 

MX 

M77 

MM 

MS 

MX 

MSI 

MSI 



FUGMT SNRAATOR 
tOUflSTM >1/ iewkX 
OOWUN y.I.rc* rxpotKk. 

COCUO MALUC0 OcMrcwtriwtrecrlOe 
FAOAPRCT* r r>^;K 
K4UHT10H0WI *•** mcrfxx 
Bmuuviano A*x»*n imib 
llwnt C^a 
Meoo SlM(« WN 
OCYBAU [iK'JIIKC'M 

pyraho 

SPOOK [KOI 0-« w:«»- <M 

rwaus 

TRKKBOV I***--! 

OOOMMTWX ■ 

WXWUO GxJ*» «*•»***.*• X-C 

MTUUI 

FROGGER ^Otcup i wr.» lUDrm 
RAiOER .yuwoxnx^ 
SUPERCOHR* C*%i<UMgl«Cfi{MW 

JOBONMRMAN 

COSOOS r^wnm^iwM 

SWTS I 

SWTS i J 

UTtTOMIUm 

DOG FCHTER 0»> .4 .» i.OH rtngat 

SHAOOWO# THE BEAR 

MOT SHOE - >vcw 

antarctic adventure *avmj 

HUNCHBACK IjNfiptYMIMSP* 
NORSEMAN lvCMb csm a 

OECATMLOR 



weco M CAOA JOGO CU M OO 

RAM CAM J JOGOS COHPRAOOS. t SC OLKA UN TENCEMO 

GRATIS EAMOAOANW MATS UW JOGO PtHCOESPACJAl 

CP-400 JOGOS EUFtTA 

MOi • OCCATmlOn i'/j •va’maooivxA 

Fin-OOuaUMCK ‘Van^r, 

fix • ORACOMAN SoMoanrAJanomco 

FIX 1C* MOCK » Kt-t, X J*B 

FIBS- MR OK <WK.-.nw« 

FIS • BfTERCePT 4 wiM rv^g* 

F107-MSTAR « 

FIM-SSUUOOHMvOO '<«• *4*0*01 b*ca 

F1X-P0PEYE Or^ofrAO 
F11B-0ALAG0R ;c* 

Fill • 2AIX0R 0 ~**v ugc urt ^oa 

, Fit), germ Or^ci w am 

F11J-0CVK ASSAULT [ixavr 

F114- MR TRAFFIC CONTROL • - «-■ tV: 

Fin CRASH Oevw* 

i Fill • SPACE WRECK 'V-kjulam*.**:., 

Fii7. SHAFT :*v^*eertafxMcjoa» 
F1U-0ESERTRBER Co-Cl >C*T»nc>»rv 
Fill ■ CHOPPER STRIKE cor v tac®-* 

FIX - THU PATROL Sr.. 04P*»*4O£*» 

CP 400 • JOGOS EXCUXSIVOS EM FTTA - LAMCAMEKTOS 

FIJI - MOOUU MAN mllUICKsMOl** 
FIBSAMSlftfTM OOC4 

F1JJ- KING TUT Ci40*» 

FIJI- BUB MM «LTi rro-.lt 
FIR-RAT PtgutOfWM 
FlM-SRTi jmtiriC 
I7-RHAU. S*K* » <*/* RCpf 
a • MAJOR STAR AatuikOW 
FIR • CHAMBERS 'oewmo: Lwnrt* 
FIX-CRYSTAL T’orntmor* 

FIJI - mu OUH PwweRi S\MM 
F1SJ- RACER PUTSP0M8 r # ri t ^^cr 
Fin- WACKY £ii» ■oclAtorooriM'Or 
FIX • CYRUS 0-'«*o •A.-rcilVipri-K-a* 



FiS->TAHTh«OCR V7<*T.'t)MM 

FIX -WRITS WAREHOUSE Cmx t*> a* w ar-AMOu 

F1J7-P0UCHT0NE /» cgc ratr- v 

FIX • back man ‘ roafic: auot mrlnee 

PRECOOECAOAXOO CR M.M 

KARA CADA J JOGOS COHPRADOS ESCOUtA UM TERCSRO WTEMAMCNTE 
GRATIS EAXOA GAM HARUMJOOO ILACKJACK 

CP 400 • APUCATTVOS E UTUTAWOS 

soucm catalogo 

CP 400- UTTLfTAfiJOS EU FITA 



Fix • SLWCR SCRCIR V • Hvrmvnyj* 
Fill • TAFCOUK SxratMayatmi 



MX 

soox 



APPLE I- JOGOS ESPCCUISEU06CO- CAOACS iso i 

0X1 - AARATECA ..«.»»» 

OSeJ-CORAH A.** 

DJM-GHOJTiUSTIRS a,<. 

03X - SUHHER GAMES MA-,..o«r sntr- ., 

WOl-CRi 

0X1 SKYFOI - -r '.'I 



APPLE I • JOGOS EM DISCO OA PAOUOCAO 

0307- ATTIC 0 » o I 

OSM-FCAOUY 

0X1 MFTSAM -V.4i : « r«9«T| too 

0)10- DONKEY KONG Vi- -ICJM 
0)11 FREE FAU ‘•u'c 

0)U -P1EHAA . 

0)i> • OAXTROR •» 

0)U • OtERT ; -vx x* 
om • AMGU HURT Ir-.mmi 
0)11 -CAVER* OF CAUSTO i 

0)17- WALL* pr 

0)11 TAIWAN Jtrr 0 
OXt-KAORET AStoru oy 
OSX-GAHAO ac- 

orn -SICK ROGERS 
0322-1040 lUMEft 

PRECOOECAOAJOGO CS 78.0# 

FARA CAOA J XXjOS COHFRAOOS CSCOLHA UH TERCCIRO WTEMAHEWTl 
GRATIS E AINOA GANHE HAS UM JOGO WER 



APPLE I • UTUTAROS E APUCATIVOS EM DISCO 

0X1 - OSK DRIVE OUGMOSnCO joox 

0X2 SAT IT S JOOX 
OX) -HUSICOHR CcnporRA 14 1A4CA JOOX 

0JJ4 - KOALA JOOX 

DXJ - RONT SHOP tftxr at iptua BO X 

0X4 • THE CORWUTEGRAFHKUSYSTIH BOX 

0X7 -SCREEN WRITER P-xeU4»« 'wa BOX 

0X4 • SPECOHALA OIRETA XCX 

ox# • sreecxontrole oc estooues box 

OSX • SPEE&COWTAS A RECEBER JXX 

OXI-SPEEGFOlhAOEPAGAMERTO box 

0)12 • LOCKSXTM l# Jl*5W0XCap« BOX 

OX) HAGCwwtoow FxniDatm box 

OXA-VMCALCI FvwnaOMNca box 

oxs-wsifui ajpccatOm box 

OB#-0#ASEI CtHWte BOX 

DM7- FRIDAY CcnvM BOX 

OBI - WORDSTAR Orxnuxr ot’tva BOX 

OBt-LOTERUESPORRVA BOX 

DJM-lOTO BOX 

BRaCE GRATIS. RA COHPRA OC QUALOUER PROGRAMA EH OSCO 
UM CURSO PASSO^PASSO EH BASK 



JOGOS EUFITA PAHA TK90X 

FB'-IAOREZ ini* «•*»«> U: 

F302-REVERS >f ,cO« 

FBI - GAM AO W>y-.rx 
F»4 ANT ATTACK - i« - 
F205 - CTKR RATS 
FBI - MORAOO E AS ARAMMAS 
FB7-J0TAMX imur 
FBI - SMR3LAOOR OC TOO 
F2W COOM A_ar : 

FJ10 • HCRAOO ESOLAANOO A^r-.-, 

FJ11 • PYJAHAAA4A 
F2U - ANOROO 2 •-» -j 

F21) ■ PLANfTOlOS b ffMi* 

FJI4 HISSIU CA.- $, 

F715 PSST 
F7U • HAMC WMER 

P717- MIMGRT HORACE j - a* 3» ajAnt 
F21I -RNBAU «-■ o . -<rr- 
FJ1I - SPACE RAIDERS MBiit.pn-i 
F2B- ASTRO BUSTER Jx.1 Wii04«.^rti 
F2J1 • JET SET RH1Y ’» <.-*•, X-~ 

F222 - GK7ST MUTT V’ 

F22J • chcoucred flag »^-a« 

F224 • TERMS /id 

F22S - ROBOTICS i tn nmtrn 

F22I- GALACTIC ASOuaORS -1«5. r*-«x 

FB7-SMUCA Vv- .-.CMtoUi 
F22I • MNEOOUT ’.'iioe cff'i M r»Mi 
F22I HRW1HPT P^jtc 
F2X-G0LFE i-.rr ■». , -, 

FBI -CROSS V - 

FEB - AJHP1WG JACK AK .y-*<*-.nxct*> 

F223 GPOURO ATTACK Mfi -W . »- • /*-.* 

FBI - HORSIER HME - .-%->« at 

F2X - SEIOOAB ATTACK - -tu u>lm,- 
F2B-GALA1DARS .» « 

FB7-FXSHTER PILOT P*w.mfUE4j* 

FBS - TERROR 0AKT1L 40 A<ic 

F2B - TRADER Ccrw^ef XAox«OR» 

F2A0-STYX Wf (» ( [ jCMX COH I t»jj 
FBI PERETRATOR DW^OWOX 
FB2-GH0STBUSTERS CiuaMra 
FBJ UUYJORES l|awMgr « 

FB4 -UB4 r-j na ‘»V0 
FJO-CAVELON Un;llocm 
FBB -ARCVENTURE Wet C Carat OWAl 
FBT-FREO "«<roi c DR>gc a p-Rnot 
FBB- FANTASTIC VOYAGE . «t nc COBO lunro 
FJ4B - (BVER RAO FwCWA 0 "B * CfCtX 
F2S0 - SGJBAOIVE «*** « oron x *w 
FBI • AOUAPVANE /M tc‘4 X t prgc 
F2S2- USWC CANGA Vbc 
FJSJ-PEGASUS Ow-^ai*«Rgtn«x«>~R3 
F2S4 OECATKORI 

P2S4 • SB LANCELOT ■'tgjt C* X#04 X ^4W0 
FX# - HONSTER IN HELL CuCA* tarn o 
FIST- ARCADIA ScOTW 1 ‘CM 
FXB- POTTY PMNTER PBTKfW C Oj*>UM 
F2SB NEW POKER cwpparpor 
F2U-BOOGABOO *Lttoicoui>raina(i 
FBI-ESCAPE Suancnwiwwot 
FB2-ESOUMOEOOH r.w.ixjK 
F2M- FREZCE jk^s i-rxjcx cof Unix gw 
FB4.TORRAOO Em*> 

FBJ ■ SPY •• SPY Qy*Pi at Mpae«e*X) 

FBI-OELTANWG 'Jrl 

FJT-PMOHAMA 4o*4 0(t1C*lOei 
UB-TNEPYRABO A^ avP r#-o 
T2X WORSE AT SEA Urtfft* C H* U-Wtt 
Fj7D - AirrowOHU Circi at two* 

F771-atkatac Peart e aaev atcrtr tx 
FJ72- TRAN2 AH o* X* { JA 
F77J - MOLAR HAUL MmiMWRiacn 
F274 • UGH MOON Out*3 1 4tt orft 

PRCCOOC CAOA JOGO CxS M.M 

PARA CAOA 2 JOGOS COWPRAOOS ISCCUU u« TIRCtlRO INTEJRAMCNTI 
GRATIS E AMOA GAN* UAISUHJOOO SENHA 



COMOCOMPRAR; 
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SOFTSPEED 

ROA GONZAGA BASTOS 112 - 20541 • RIO DE JANEIRO 




Feira Nacional de Acessorios, Suprimentos e Instala^des para Informatica 




24 a 27 de abril de 1 986 
Palacio das Conven^6es do Anhembi 
Sao Paulo • SP 



I ENFASI'86 • Encontro Nacional dos Fabricantes e 
Fomecedores de Acessorios, Suprimentos e Instalacoes 
para Informatica 



Apoio Ofkrial 



SEI • Secretaria Especial de Informatica 



ANFORSAI Associa^o Nacional dos 
Fomecedores de Suprimentos e 
Acessorios para Informatica 



Apoio Editorial: 

MICR l» & 
SUPRIMENTOS 



OrqanuagAo e Realiia^ Ao 




lnforma<;6es: Pra^a Pinheiroda Cunha. 195 CEP 04275 - SAo Paulo • SP Tels. (01 1 ) 914-8325/91 4-6091 



Evento oftc wli/ado pelo C DC Conselw de Devnvolvimento 
Comercial 

Ministeno da Indiistna e do Com^fcio 



trs-80 trs-80 trs-80 trs-8 



Maqsorte 



Cristiano Antonio Dias e Creso Marcel o Resende de Macedo 



Que tal um programa que leve voce ate um cassino, sem correr o ris- 
co de ser flagrado em um lugar proibido? Esta e a finalidade do Maqsor- 
te, programa criado paraoscompativeis com o TRS-80 (com ou sem dis- 
co), al6m de divertir o leitor, e claro! 

0 jogo possui grande parte grafica, como simbolos para o resultado 
etc. 

Dessa maneira, no inicio de cada partida, diga o valor das fichas que 
deseja comprar (100. 25, 10 e 5). Quando o micro imprimir JOGUE. 
pressione a barra de espapo e... tor^a. 

Cristiano e Marcelo estudam no CBNB. na llha do Governador. O primeiro 6 pro- 
prietArio de um TK85 e ja fez dois cursos em BASIC, a 16m de realizar programas 
para a Promatel e Phone & Game; e o segundo usa um CP 500. tern curso de BA- 
SIC e ainda cria programas para o Projeto Ciranda. 
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TAIA CORFIM FICWS DE !H TEOE 1M / FIOBlS E 25 TECLE 25 
FICHAS DC 1# TECLE 1* / FICHAS DE 5 TEOE 5 / E ICU L1K 
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Tela inicial do programa 



0 nt.s 

1 'MICRO SISTEMAS 

t -CRTS 6 MARCa -TEL 396-7007 1 'R 10 OF JANEIRO - RJ 

10 'MAOUINA DA SOR TE VER 1.0 12/02/1901 

20 "COPYRIGHT <C1 1904. CRIS 6 MARC 

30 CLEAR 2000 
40 NMt- 'BONUS- 
50 00SUB 430 

60 DIM XI 201 .Y<20>,Z<20),X$<20> , < $< 20 > , It < 201 , F T$ < 7 > IR ANOOHsCLSa 
PRINT CHRK23>lPRINTsPRINTaPRlNTlPRINTaPRINT MAOUINA DA SOR TE OA 
CRIS * MARF'lSTKI • “ISTK2I-" •• 'ISTK3>-"« • "»8TK41-“ 

70 001-STR I HOt < 10,32>8FM1- NR MM 1 AAl-STR ING1 ( 0, 1 76 ) a ABl-STR INCH 
B. 140> aACl-STR INGK 0,131 > IC0IN1-CHRK 1 83 > -CMR! < 107 > • “ IF0RN>1 T 
0 7 IF OR Nl-1 TO A aREADROaFTK N >-FTK N> ♦CHRK RD) «NFXT NI.N1FTK2) 
-CHRK 32) -CHR!) 191 > 4NM1 iCHRK 191)*CHRK32> 

00 OF !• STR INOK 20.62) •" TABELA OE PAOAMENTOS “»STR INGK 20.60 »* 
001-CHR K 1 43 > +CHR % ( 32 > * "JOGUE"*CHRK 32 > *CHR 1 < 1 43 ) 

VO. FOR N-l TO rOiRFAO XINIsNEXTa 0-20 a FOR N-l TO 208READY <N> SNEXT 

11 OR N-l TO miREADZlNUNEXltFOR N-l TO 20« XK N > -FTK X « N > > INE XT » 
FOR N-l TO ?niTS<N)«rTt(Y(N>)>NEXT«FOR N-l TO 20«Z* < N >-FT$< I < N 1 ) 
iNFXTaOOSUB 200 

100 1P1-IMXEYK IP!-’ ' 

110 PRINT 960 , STR I NOV (2,32>i>PRI NT3323 .GOljiIPS-INXEYSiFOR Nl-1 T 

0 ir.08NFXTiPRINT860.STRING»(2. 1431, 1PRINT8323. STRING! <9,32 l, J FOR 
Nl-1 TO 25<NEXTNt * IF 1P1- "THEN 110 ELSE IFPOINT < 1 22 , 7 >«0 OR PO 

l NT < 2, 24 1 -OTHEN PT-138GOSUB 2B0 

120 PRINTa60.STRINGK2.32) t aPR INT3256 .STR INGK 1 92 . 32 ) , aG-G-1 8C-C 
1 »E aU-U-E 8F-08UU-C-P 8 PR I NT 32 01 , "CP ! - , *PR INTU9ING"H)*iaHN" jUU t 8 IF 
C— 1 THEN 260 

IJO PR1NT3304.” " t SPRINTUSING FM$,C, aPR INT" -> FICHAS RESTANTES 
", 8PRINT3416. "FICHAS JA JOGADAS - 8PR INTUSING FM»,G, aPR INT335 
2. "FICHAS O ANITAS - , 8PR INTUS ING FH1,U| 8PRINT3320, - 

J0GA~|CCI, 

140 FOR TX-I TO 58PRINT3l35.AA»,lPRINT315S,AA* t tPRINT3175.AA!,sP 

R INT3135, AB»,8pRINT3155.AB» r 'PR INT3175. A8», aPR INT3135, AC! , SPRINT 
3115.AC»,8PR1NT3175.AC» ; 8NEXT TX 

ISO FOR N-l TO 208PR I NT 3 l 35, 00!, sPR I NT 3 155, 00! ,*PRINT3175. 00$ , SP 
B|NT3t35.X!'N),8PRINTaiS5.Y!<N),8pRIMT3175,Z!<N),8F0R T-l T078N 
EXT T : NF X T N8PRINT3135, 00! , sPR I NT 3 155 , 00! ,8PRINT31 75.001, 

160 FOR N-l TO 3sPRINT313S. A A! , *PR I NT 3 1 55, AA! , «PR I NT 31 75 , A A! , 8PR 
INT313S,AB!,sPRINT31 55 ,AB!, iPR INT3175.AB!, sPR 1 NT31 35, AC!, sPR INT3 
ISS.Arl: :PRINT3|75.AF$t sNF X T 8PR INT31 35 , 00!, IPR INT3155.00!, SPRINT 
3175,00!, 

| 70 N— RND< 0 > SPR I NT 31 35, X!<N I , SX— X<N) 8 FOR N-l TO 9 a PR I NT 3 155, AA!, 
8PRINT3175.AA$,8PR I NT 31 55 , AB! , 8 PR I NT 31 75 , AB!, SPR INT3155, AC! , sPR I 
NT3I "5.AC!, sNEXT a PR INT3155 , 001 , 8 PR I NT31 75, 00$, 

100 N-RND < 0 > 8PR I NT9155 ,T$CN)jSY-Y<N>*FOR N-l TO 108PR INT3175, AA! 
, 8PRINT3175.Z!<N)jsPRI NT31 75 , AC1, sNEXT N SPR INT31 75, 001, 8N-RND< 0 ) 
8PRINT3175,Z1<N) ,sZ-Z<N> 

190 IF X-6AN0T-6AMDZ-6 THEN E-2008G0T0210 ELSE IF X-5ANDY-5ANDZ- 
5 THFN E« 1 00 8 G0T0210 ELSE IF X- 4 ANDY -4AN0Z-6 THEN E-18SG0T0210 E 

1 3E IF X-4AN0Y-4ANDZ-4 THEN E-18SG0T0210 ELSE IF X-3ANDT -3ANDZ-6 
THEN E-l 4 8G0T0210 ELSE IF X-3ANDY-3ANDZ-3 THEN E-14SG0T0 210 

200 IT X-2AN0Y-2AN0Z-6 THEN E-10SG0T0210 ELSE IF X-2AN0Y-2ANDZ-2 
THEN E-108G0T0210 ELSE IF X-1ANDV-1 THEN E-58G0T0210 ELSE IF X- 
1 THEN E-2SG0T0210 ELSE 100 

210 IF E-200 THEN 230 ELSE GOSUB 2708PR INT3320, STR I NB!< 63 ,32 > , a I 
F E-100 THEN PR INTS256, ' • 100 • PREMIO ESPECIAL • 100 • PRE 
MIO ESPECIAL • 100 • ", aPR INT3304 ,"-> PAGA 100 FICHAS PAGA 
100 FICHAS PAGA 100 FICHAS <- "jSGOTO 240 
220 IF E< 1 OOTHENPR INT3320.STR ING$< 63,421 , sPR INT3304 . STR 1 NG1 (64 . 3 
2) , 8PR INT3304,~P AGA >>",E,lFOR N=1 TO E aPR INTC01N! , 8F0R NN-1 TO 7 
58NEXT NN8NEXT N a IF E-IO THEN PR INT3256. BP!, aGOTO lOOsELSE 100 
230 PR INT92S6 GANHOU •• OANHOU «• GANHOU •• GANHOU 
•• GANHOU •"IPR INT3304 , " B 0 L A 0 • 200 • 0OLAO • 2 

00* BOLAO • 200 •"jiGOSUB 250 

240 FOR N-l TO 25 a PR I NT9320 , STR I NGK 63 , 32 > , sFOR Nl-1 TO 251NEXTI 



PR I NT3320, STR ING1C 63 , 42 ) , if OR Nl-1 TO SOaNEXT N1 , Na GOTO 10Q 
250 FOR N-l TO lOOINEXTlFOR N-l TO 20SF0R T-l TO M PR INT 313? .ST i 
( T t . a PR l NT 3 157 ,STKT>i*PRINT3l77,STKT)j8FOR TM-I TO *.3Nf<TlNFXl 
T . N (RETURN 

260 IP!-""IIP!-1NKCY$IPRINT 3387 , "SINT 0 MUITO l> SUAS FICHAS ACA 
BAR AM. TECLE NEW LlNE.",aFOR Nl-1 TO 50«NFxT N! aPR INT33H4 , STR INI 
1(63,32), arOR Nl-1 TO 258NEXT N1 a IF IP1-""THEM 260 FISC 10 
270 FOR N-l TO IO>PRINT3t3S,00!, IPR 1NT3155.001, a PR IN 131 '5.00$ , af 
OR TM-I TO 20lNEXT8PRINT3135.FTl<X>,aPRlNT3l55.rTl<YI,aPRINT3l73 
,FTS<Z>»*FOR TM-I TO 50 8 NEXT TM.NsRETURN 

200 CLB8PRINT366, STRING! <60. 1401 IPR I NT366. CORK I 76 I 8 PR I NT3B5 . CHR 
1(176) sPR INT3103 . CHRK 1 76 ) a PR 1NT3125, CHR1 • I76» 

290 PR I NT 31 30, CHRK 191 ) 8PR INT31 49 . CHR $ > 1 91 > a PR 1 NT3I *v , CHR! • 191 ) I 
PR INT3109, CHRK 1 91 > 

300 PH INT31 94, STR I NO! (60. 1401 a PR I NT 31 94 , CHR 1(131 > a PR I NT 321 3. CHR $ 
< 131) IPRINT3233, CHRK 131 >spRINT3253. CHR! <131 • 

310 PR INT351 2, FT! ( 6 ) , " ,FT$<6>, ',FT$(6),’ > 200 IPR I N 1 3,,40 , r 

IKS)," ,FT1<5>, " |FTK 5 > : -> 1 00" aPR INT376B . F Tl< 4 > , ,rT$.4 

) , " ",FT$< 6 ) , " - > 10- sPRINT3096.rr$<4»,1 -,FTK4), |Ml'4i, 

-> 10" 

320 PRINT3544.FTl<3),TT$.3) t rTl.A), > 14 , BPR 1NT3674 . 1 11' ' • a * TV 

<3),FT$<3>»"-> 14“, IPRINT30Or.FTl< 1 ),FT$< 1 > PAGA ■ V,aPNI 
NT3V30,FT!< 1 > PAGA -> 2 ", 

330 PRINT3576.STRINC.K63, 1 40 > , a PR I NT3704 . STR I NG$ < 61, I 40 • , IPR INT«I 
032. STR INGK 63. I 40 I, aPR I NT 3960, STR 1 NGK 41, l 40), tl'R INI 3440. IRINC. 
K63.l40),!ir PT-13 RETURN 

340 FOR NL-1 TO 20aPR INT31 35. AA! , aPR I NT3155 . AA1, aPR I N T 31 75 . AA! , i 
PR INT31 35, AB!, sPR I NT3155 . AB! , aPR I NI 31 75. AB! , IPR I N 131 .15 , Al 1 , aPR I N 
T 31 55. ACi, SPRINT 3175. ACl, SNF XT NX 

350 FOR N-l TO 20aPR I NT31 35. XK N ) , 8PR IN T 3155 . Y! « N . , IPR INT3I 75 , /$ 
< N > , sFOR T-l TO 7, NEXT sPRINTSl 35. 001, aPR INT 3155 , 001 , al’M INT3I ,0 
01, SNEXT N 

360 PR INT31 35 ,FT1< 6 ) , i PR I NT3155 , FT! ( 6 » , aPRI NT3I 75, FTK 4 > t iTRINTa 
256, ">>>>) BOLAO. COM ESTA JOOADA UOCE GANHA • 200 • OlZCt 

<<(<(-■ IPR INT3405, “TABELA DE P AGAMENTOS" , 8G0SUB 250 
370 PR INT 3256 , 8TR I NG! <192,32), SPR INT3256 , "PAR A COMPRAR FICHAS 01 
100 TECLE 100 / FICHAS E 25 TECLE 25" , a PR I NT 3320 , ' FICHAS DC 10 

TECLE 10 / FICHAS DE 5 TECLE 5 / E NEW LINE", 

380 PRINT3414.* ", a INPUT CCa PR INT3440 , STR INGK 63 . 1 4<l 1 , 1 1 F CC-IOO 
OR CC-5 OR CC-25 THEN C-40 ELSE C-50 

390 IF CCOIOO AND CC( >5 AND CCOIO AND CC< 125 IHFN 370 
400 IF CC-IOO THEN CC1- CR1 100 sp-100aEl ST i IF CC-25 IHFN C.C1 = 
r.R! 25 IP-258ELSE8 IT CC-10 THEN CC1* CR1 10 aP-lOaCI SFilF CC-5 
THEN CCS-" CR1 5"aP»5 

410 PR INT9256 , CHR! < 30 * , SPRINT 3 320. CHR!' 30 ) , IPR INT3384 CHR! I 30) , 
420 PRINT3339. “TECLE NEU LINE PARA JOGAR r , aRFTURN 
430 CLSiPR INT' MAOUINA DA SORTE DA CRIS A MARC , CHRK 140., ( P 

- 5 0 0 -IPRINT STR INGK 54 ,191 1 , STR INGK l0.170i,8TR0FFiPRINT 
0 SEU COMPUTADOR PESSOAL " aPR INT3.104 , ' ESTF JOGO SIMULA DMA 
MAOUINA REAL. AS DIFICULDADES PARA- 
440 PRINT"GANHAR TAMBEM SAO RFAIS. NAO FSPFRE JOGAR I OU 2 
OEZES E GANHAR MUITO. FIOUE TENTANDO, SF MO IE FAR SEU DIA 0 
E SORTE. VOCE OAI GANHAR UMA BOLADA. 8 PR I NT37B5 . "TFCI E <FNTFR 
> PARA COMECAR- , 

450 PR INT3B4G, STR INOK 28, 131), aPR IHT3BV6 , SIR ING! . 64 . Ill), 

460 P -0 8 FOR N-l TO 61 IPRINT3890-P . CHRK 179 ) , aPR I NT 809 7 .p . FHRK 1 3 
3), 8P-P-1SNEXT N8PRINT3956, STRING!. 3.133), i IP!- INK F Y 1 a 1 1 |P1- T 

HEN 460 ELSE RETURN 

470 DATA 32. 176. 134,176.134.176.134.32.32.32.3: .. 12. 32. 12. 12.32,-1 
2,140, 179.179, 179, 179.140.32,32, 176. 1 40. 1 ,11 . 1 31 . 1 40, 1 7p C.32, 1 7 

9.179.42,42.179.179,32, 103, 179,42.42,42.42, 179. ,07.32. |V| . |79. 19 
1.32,191.179,191 

400 *--- - 

490 ' PAYOFF CONTROL DATA HERE 

500 DATA 1,2,5.6.4,3.1,2.5.6.3.1.2.5.6.4.2,5.6.3a' UMFEL M 1 
510 DATA 4.1,2.4.5.3.4.6.2.4.l.5.4,l,3.4.6,5.4,2a- WHEEL R 2 
520 DATA 3,2.3,7.2.3.7.4.3.7.3.2.7.5.1.7.3.2,7,68 ' WHEEL H 1 
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Jogo da velha tridimensional 

Daniel Quadros 



Neste programa, voce joga contra um 
computador em um cubo 4x4x4, pro- 
curando colocar quatro bolinhas( o)em 
linha e evitar que seu adversario ponha 
quatro letras X tambem em linha. A ma- 
nipulate da tela 6 feita em BASIC e a 
estratSgia do equipamento em Assem- 
bler, o que permite unir alguns peque- 
nos efeitos visuais a um bom ritmo de 
jogo. Apesar da simplicidade das regras, 
o Jogo da velha... exige astucia e uma 
boa visSo espacial. 

0 conceito bisico deste jogo prov^m 
de um programa de demonstrate) da 
HP. 0 carregador hexadecimal 6 uma 
adapta£3o do programa de Tadeu Cu- 
ringa da Silva, publicado em MS n 940. 
A rotina da listagem 2 6 a do artigo 
“Um REM com infinitos bytes”, de 
Daniel Hendrick (MS n? 30). 

ENT RAN DO COM O PROGRAMA 

0 primeiro passo 6 digitar a listagem 
1 , que 6 um pequeno carregador hexa- 
decimal. As duas listagens em Assem- 



. REM 11111111111111111111111 
1111111111111 
10 5CPOL- 

20 PRINT ENDERECO INICIAL' 

30 INPUT E 
4.0 SCROLL 
50 PRINT E." - 
60 INPUT AS 

TO IF A* = ' 5" THEN STOP 
30 PRINT «s;" = ", 

50 INPUT CK 
100 PRINT CK 
110 LE' r 5=0 

120 e 0R 1=1 TO LEN PS/2 
130 LET C=16*C0DE AS i2*I-l) + C0D 
E h* (2*1) -4.76 
140 LET 5 =5+C 
150 POKE E+I-l.C 
160 NEXT I 

170IF CK < > 5 THEN PRINT AT 21.3 

lS^lF CK«S THEN LET E =E+LEN Al 
'2 

190 GOTO 40 



Listagem 1 



16314 - 


Ol 


OO 


03 


21 


46 


40 


E5 


C3 - 


693 


16322 - 


CD 


9E 


09 


Cl 


24 


7F 


40 


09 - 


807 


16330 - 


22 


7F 


40 


24 


29 


40 


09 


22 - 


413 


16338 - 


29 


40 


El 


36 


IB 


23 


OB 


79 - 


578 


16346 - 


BO 


20 


F8 


C9 




657 






Listagem 2 



bier, deste artigo, possuem blocos em 
hexadecimal com tres campos: o endere- 
50, os dados propriamente ditos e uma 
soma de controle. Ao se executar o car- 



regador, ele pede o endere^o inicial do 
bloco, que 6 o mesmo da primeira li- 
nha do bloco. Em seguida, ele apresenta 
o endere90 da linha e espera a digita$So 
dos dados, que devem ser inseridos sem 
os espa90s presentes nas listagens. Apos 
a entrada dos dados, e pedida a soma de 
controle. Se tudo foi digitado correta- 
mente, o prdximo endere?© e mostrado; 
caso contrario, aparece a mensagem 
ERRO e a linha deve ser redigitada. 
Ap6s a ultima linha, entre com a letra S 
para parar o programa. 

Exemplo: A digitafffo do primeiro 
bloco (listagem 2) come9a da seguinte 
forma: 

Tela Digite 

ENDERECO INICIAL? 16514 <NL> 
16514- 0100032 1A640E5C5 <NL> 
16514 - 0 1 00032 1 A640E5C5 = 

693 <NL> 

Entre agora com a listagem 2, conforme 
descrito acima. Em seguida, execute a 
rotina carregada: digite RAND USR 
16514 e NEWLINE. Se voce listar o 
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76 


76 
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DO 


40 


C3 


67 


42 




1067 


16786 
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36 
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17038 
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20 


08 


m 


426 
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OO 


00 


OO 


00 


00 


00 


00 


00 




0 


16794 


- 


34 


3E 


03 


07 


OB 


OF 


13 


17 




198 


17066 


— 


78 


FE 


03 


20 


03 


22 


1C 


42 


m 


340 




— 


OO 


00 


OO 


OO 


00 


OO 


00 


00 




0 


1 6802 


— 


IB 


IF 


23 


27 


2B 


2F 


33 


37 




328 


17074 


“ 


13 


20 


C4 


2A 


1C 


42 


7C 


B3 


ae 


690 


16338 


- 


OO 


00 


00 


OO 


00 


00 


00 


OO 




0 


16810 




3B 


3F 


OO 


03 


04 


OF 


10 


13 




189 


17082 




C2 


3F 


42 


24 


IE 


<2 


7C 


B3 


aa 


766 




- 


OO 


00 


00 


OO 


00 


OO 


00 


00 




0 


16818 


— 


14 


IF 


20 


25 


24 


2F 


30 


33 




316 


17090 


— 


C2 


49 


42 


3E 


02 


CD 


OF 


43 


m 


684 




— 


00 


OO 


00 


00 


00 


00 


00 


00 




0 


16826 


- 


34 


3F 


OC 


09 


06 


03 


1C 


19 




204 


17098 


- 


30 


07 


3E 


03 


32 


SB 


40 


18 


m 


397 


16362 


- 


00 


00 


00 


OO 


00 


00 


OO 


00 




0 


16834 


- 


16 


13 


2C 


29 


26 


23 


3C 


39 




316 


17106 


- 


38 


3E 


01 


CD 


OF 


43 


30 


07 


m 


461 


16370 


— 


00 


00 


00 


00 


00 


00 


00 


00 




0 


16842 


— 


36 


33 


00 


14 


28 


3C 


01 


13 




247 


171 14 


— 


3E 


01 


32 


8B 


40 


18 


24 


21 




413 
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• 


00 


00 


OO 


OO 


00 


OO 


OO 


00 




0 


16830 


- 


29 


3D 


02 


16 


24 


3E 


03 


17 




236 


17122 


— 
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OE 


10 


SE 


CD 


21 


42 


m 
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16386 


_ 


OO 


OO 


00 


00 


00 


OO 


21 


90 




177 


16838 


— 


2B 


3F 


30 


24 


18 


OC 


31 


23 




312 


17130 


— 


FE 


OO 


7B 


28 


19 


23 


OD 


20 


m 


322 


16394 


- 


40 


OE 


40 


4F 


77 


23 


OD 


20 




316 


16866 


- 


19 


OD 


32 


26 


14 


OE 


33 


27 




236 


17138 


- 


F3 


21 


90 


40 


OE 


40 


7E 


FE 


m 


942 


16602 


- 


FB 


C9 


OO 


30 


33 


03 


OC 


3C 




626 


16874 


— 


IB 


OF 


OO 


1 1 


22 


33 


04 


13 




169 


17146 


— 


00 


28 


08 


23 


OD 


20 


F7 


01 


m 


376 


16610 


- 


3F 


OF 


13 


26 


16 


23 


19 


29 




262 


16882 


- 


26 


37 


08 


19 


24 


3B 


OC 
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268 


17134 


— 


03 


OO 


C9 


3E 


40 


91 


32 


84 


aa 


663 


16618 


— 


14 


24 


OO 


01 


02 


03 


04 


03 




83 


16890 


- 


2E 


3F 


30 


21 


12 


03 


34 


23 




300 


17162 


— 


40 


01 


00 


00 


C9 


32 


20 


42 


m 


414 


16626 


- 


06 


07 


08 


09 


04 


OB 


OC 


OD 




76 


16898 


- 


16 


07 


38 


29 


14 


OB 


3C 


2D 




268 


17170 


- 


21 


EC 


40 


16 


4C 


OE 


00 


IE 


m 


475 


16634 


- 


OE 


OF 


10 


1 1 


12 


13 


14 


13 




140 


16906 


— 


IE 


OF 


OO 


13 


24 


3F 


OF 


1A 




212 


17178 


— 


04 


E3 


D3 


3E 


CD 


21 


42 


D1 


m 


1033 


16642 


- 


16 


17 


18 


19 


14 


IB 


1C 


ID 




204 


16914 


- 


23 


30 


03 


16 


29 


3C 


OC 


19 




248 


17186 




FE 


03 


28 


OC 


FE 


OO 


28 


08 


aa 


611 


16630 


— 


IE 


IF 


20 


21 


22 


23 


24 


23 




268 


16922 


— 


26 


33 


14 


42 


98 


41 


01 


E3 




622 


17194 


— 


47 


34 


20 


42 


B8 


20 


04 


OC 


m 


463 


16658 


- 


26 


27 


28 


29 


24 


2B 


2C 


2D 




332 


16930 


- 


16 


00 


21 


90 


40 


19 


7E 


El 




639 


17202 


- 


23 


ID 


20 


E6 


79 


FE 


02 


28 


m 


743 


16666 


— 


2E 


2F 


30 


31 


32 


33 


34 


33 




396 


16938 


• 


C9 


11 


BC 


40 


OE 


04 


2B 


7E 




609 


17210 




OE 


El 


23 


23 


23 


23 


15 


20 


m 


432 


16674 


— 


36 


37 


38 


39 


34 


3B 


3C 


3D 




460 


16946 


— 


12 


13 


OD 


20 


F9 


C9 


CD 


2B 




780 


17218 


— 


D4 


CD 


6F 


43 


37 


3F 


C9 


El 


m 


1139 


16682 


- 


3E 


3F 


OO 


10 


20 


30 


01 


11 




239 


16934 


_ 


42 


01 


02 


OO 


C9 


CD 










17226 


“ 


OE 


04 


D3 


5E 


CD 


21 


42 


FE 


m 


883 


16690 




21 


31 


02 


12 


22 


32 


03 


13 




208 


16962 


- 


CD 


39 


42 


01 


01 


OO 


C9 


11 




380 


17234 




03 


28 


10 


FE 


OO 


20 


03 


3E 


aa 


412 
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10 REM JOGO DA UELHA 3D 
20 PEM DANIEL QUADROS 55 
30 C-OSUB 1000 

40 let J0G=0 

50 PRINT AT 15.2 



GO SUB 2000 
PRINT AT 19. IS. AS 
G0SUB 3000 

IF AS= 'N THEN GOTO 130 

LET JOG = JOG 4-1 

IF JOG 64 Then GOTO 410 

G0SUB 4000 

LET JOG = JOG +1 

G05UE 5000 

IF F = 3 THEN GOTO 410 

IF F < • 0 T nEN GOTO 200 

GOTO 150+204PEEK 16523 

C-0TQ 100 

PRINT AT 19 2 MHBl 



210 GOTO 250 
220 PRINT AT 19,2 



230 goto^ssc ^ 

250 GOSUB 3000 
260 GOTO 100 

300 IF F = 1 THEN PRINT AT 19 2 



310 IF F=2 THEN PRINT AT 15 2 



320 FOR J=1 TO 4 
330 =0P 1=0 TO 3 
340 LET KsPEEK 1 16524 ♦ I 
350 G05UB 6000 

360 IF F = 1 THEN PRINT AT y . . 

AT . X ; "X 1 

370 IF F=2 THEN PRINT AT V X 
1 . AT v ,X, ”0" 

330 NEXT I 
390 NEXT j 
400GOTO430 _ _ 



4 30 PRINT AT 19.2 -1‘rt-f-wm 



440 GOSUB 2000 

450 PRINT AT 19. 13. AS 

460 G0SUE 2000 

470 IF AS= "S” THEN RUN 

430 STOP 

1000 PEM IN IC IA TAEULE IPO 
1010 CLS 

1020 C 0P 1 = 1 70 22 

1030 PRINT 



1040 NEXT 
1050 PRIfJI 



1060 PRINT AT 5 . 3 . 



1070 PRINT 
1030 PRINT 



L090 PR INI 



1100 PR INI 



1140 FOP 1=1 TO 4 

1150 PRINT AT 14.6*1 I 

1160 NE»T I 

1170 LET F =U5R 16516 

1130 RETURN 

2000 PEM lE 5 N 

2010 LET A*=INKE>* 

2020 IF A $ = 5 Then RETURN 
2030 IF A s = N' Then RETURN 
2040 GOTO 2010 
3000 PEM PAUSA 
3010 f OP l = 1 TO 30 

3020 NEXT L 

30 30 PRINT AT 15 2 



3040 RETURN 

4000 PEM LANCE _ DO JOGADO^^^^ 

■■H9" . at 19 is 

4020 G05UB 4500 
4030 LE T N=C 
4040 GOSUB 4500 
4050 _E7 L=D 
4060 GO SUE 4500 
4070 LET C=C 

4030 let r = n*16*l* 4*C +16526 
4090 IF PEEr k 0 THEN GOTO 4010 
4100 POKE t- 1 

4110 PRINT AT l -7 . 3*C +7+N 0 

4120 GOSUB 2000 

4130 RETURN 

4500 REM lE DIGITO 

4510 LET A $ = INKE S 

4520 IF A S = then GOTO 4510 

4530 IF i A $ l’l OP AS 4 i THE 

N GOTO 4510 

4540 LET D=C0DE AS -29 

4550 PRINT As 

4560 RETURN 

5000 PEM LANCE DO COMPUTADOR 

5010 LET F=USR 16519 

5020 IF F 1 THEN RETURN 

5030 LET KsREEK 16522 

5040 POKE 16526 + K. .2 

5050 G05UE 6000 

5070 PRINT AT r X."X" 

5030 RETURN 

6000 PEM K = Y .X 

6010 LET n = INT i K/16 1 

6020 LE^ Y =INT l K/4-N + 4 I ♦“ 

6030 LE - X=K-4*/-9*N*31 
6040 RETURN 



Listagem 4 



programa, verd que a linha 1 foi amplia- 
da. Para que esta linha nlo atrapalhe as 
pr6ximas digitasSes, entre com POKE 
16419,10 e NEWLINE. 

Entre agora com a listagem 3, da 
mesma forma que voce entrou com a 2. 
Voce pode (e deve) parar algumas ve- 
xes o programa (entrando com S) e sal- 
vd-lo em fita. Para continuar, basta en- 
trar com o endere90 da linha seguinte a 



que voce parou. 

FinaJmente, entre com a listagem 4. 
Note que o programa anterior (listagem 
1 ) e inteiramente sobreposto, exceto a 
linha 1. Cuidado com os espa90s (nao 
reversos) nas linhas 50, 130 e 4010. 

JOG AN DO 

Para come9ar o jogo, digite RUN e 



• J O G 1-1 D 


M 
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T R I D 1 1-1 E N 


3 X O M M l_ 


1 £ 3 4- 




1 £ 3 4- 




1 £ 3 4- 




1 £ 3 4- 




1 + + + + 


1 


+ + + + 


1 


+ + + + 


i 


+ + + + 


l 


£ ■+- + + + 
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1 £ 3 4- 
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Figure 1 - Tela do jogo 



NEWLINE. 0 programa ira perguntar se 
voce deseja come9ar ou nao. Como ja 
foi dito, os lances do computador s§o 
indicados por X e os seus por(Oj.Para 
entrar com o seu lance, entre com tres 
digitos de 1 a 4. correspondentes ao Ni- 
vel, Linha e Coluna do lance. Os nume- 
ros na tela facilitam a localiza<;ao (veja 
figura 1 ). 

0 jogo continua ate que acabem as 
casas (empate) ou alguem consiga colo- 
car quatro simbolos em linha. Neste ul- 
timo caso, o micro indica quais os sim- 
bolos em linha, fazendo-os piscar qua- 
tro vezes. 

Cuidado! Existem outras maneiras de 
colocar quatro pontos em linha do que 
parece a primeira vista. Por exemplo, 
aten92o para as diagonals como (1,1,1), 
(2,2,2), (3,3,3) e (4,4,4). Boasorte! 

■ 

m 
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Ditado 

Afonso Jose Simoes de Lima e Hademilton Viali 



£ um micro-sintetizador? £ um micro-ventrfloquo? £ um 
micro-truque? Nao, 6 a sua propria voz, sem sotaque e sem 
tom metdlico. 

Ditado e um programa simples, mas de grande eficiencia e 
importancia no uso de seu micro, para fins educacionais. Se- 
melhante a programas desenvolvidos para o TRS-80 Color, ele 
destina-se, todavia, ao CP- 500 e compativeis. 

Pelo norne do programa, voce ja deve ter percebido seu se- 
gredo: ele fala . ditando as palavras para voce digitar. Com isto, 
sua aplica93o e ideal no aprendizado de idiomas. por exemplo, 
ou mesmo no auxfiio a alfabetiza^So de seu filho. 

0 programa basico permite dez palavras. Essa especifica^So 
e interessante. particularmente para as criangas, para nao can- 
sa-las. Como um programa ja preve a interligagSo de outros, 
logo em seguida, com diferentes palavras, parece que essa ca- 
racterfstica lhe d2 maior flexibilidade. Mas, se voce quiser, 
pode aumentar o numero de palavras (linhas 50 e 60). alteran- 
do, tambem, o valor de X na linha 70. 

GRAVANDO O PROGRAMA 

Embora Ditado seja um programinha de facil digitagSo (o 
que ja e um grande estimulo!), e preciso muita atengSo para 
os trabalhos de gravagSo de sua voz. AtengSo para as instru- 
g5es! 

1 . Escreva em uma folha as 10 palavras que ser2o inseridas nas 
linhas 50 e 60; 

2. Digite o programa; 

3. Utilize todo o lado de uma fita cassete, desde o im'cio. Digi- 
te CSAVE “Ditado” c pressione ENTER; 

4. Uma vez transferido para a fita, desconecte os pinos EAR e 
MONITOR (mantenha so o pino MIC conectado); 

5. Pressione as teclas PLAY e REC do gravador. preparando- 
o para gravar sua voz; 

6. Digite RUN e pressione ENTER. O programa comega a ser 
executado, e o gravador jd estara gravando. Diga junto ao mi- 
crofone: “Escreva Tatu” (ou a primeira palavra de sua lista); 

7. Ao aparecer “Escreva?" na tela, digite “Tatu” e pressione 
ENTER. 

8. Repita o mesmo procedimento com a palavra seguinte e as- 
sim sucessivamente; 

9. Apos a ultima palavra, vem a pergunta: “Voce quer conti- 
nuar (S/N)?". Como ainda nao ha nenhum outro programa gra- 
vado, em seguida. digite “N” e mude as palavras das linhas 50 
e 60; 

10. Conecte os pinos EAR e MONITOR e siga os mesmos pas- 
sos. a partir do item 3. 



UTILIZANDO O PROGRAMA 



1 . Ponha o gravador na posigSo PLAY e a fita no im'cio; 

2. Digite CLOAD e pressione ENTER; 

3. Desconecte o pino MONITOR, para se ouvir o som do gra- 
vador, e ajuste o volume; 

4. Digite RUN e pressione ENTER. 

Agora, para que voce faga uso imediato do Ditado , utilize as 
series de palavras que sugerimos nas figuras 1 e 2. A primeira £ 
para apoio a alfabetizagSo de seu filho e a outra para aprimorar 
seu ingles. A parte de alfabetizagSo traz as primeiras palavras 
que nossas criangas aprendem na escola, e a de ingles procura 



1. TATU, TUA, ATA, TEIA , TATO 
TIA, TETO, TITO, TUTU, TITA 

2. PATO, PAPAI , TIPO , PAPO, PIPA 
PITO, APETITE, TAPETE, TAPA , PATA 

3. SAPO, SOPA, SUA, SEU, SIM 
SAPATO, SEI , SETA, SOU, SAI 

4. LATA, TELA, LUA, SALA, ELE 
LEITE , PULA, SELA, ALI , LULU 

5. VALETA, VELA, I VO, LUVA, VIVO 
VOTO, EVA, UVA, VILA, VALE 

6. CAPA, CAVALO, CALA, SACOLA, SUCO 
COLA, CAIU, CACO, CACAU , CAMELO 

7. DEDO, DITADO, DIVA, CADA, DIDI 
DADO, EDU, DATA, Cl DA, COCADA 

8. RALO, RUA, RODA , REI , RAIO 
RATO, RETA, REMO, ROUPA, PUIVA 

9. MATO, CAMA, MACACO, MULA, MALA 
POMADA, TOMATE, LIMA, LAMA, MACA 

10. BEBA, BATATA, BOCA, 'BOTA, BALEIA 
OBA, BOI , BELA, BULE, BODE 

Figura I 
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1. HOUSE, KNIFE, OVEN, TOWEL, SPOON 
DESSERT, LUNCH, MIRROR, BATHROOM, CUPBOARD 

2. SCHOOL, PENCIL, DRAWING, RUBBER, STUDENT 
SUBJECT, TEACHER, DEAN, BLACKBOARD, LIBRARY 

3. STREET,. CAB, BUS, RAILROAD, GAS STATION 
CHURCH, BUILDING, AVENUE, ROAD, BRIDGE 

4. PAINTING, MUSIC, ARCHITECTURE, DANCING, PLAYING 
MUSEUM, PORTRAIT, PICTURE, SCULPTURE, PHOTOGRAPHY 

5. MOON, SUN, EARTH, SATURN, GALAXY 
OCEAN, MOUNTAIN, ISLAND, CLOUD, FOREST 

6. WATERMELON, APPLE, PEARL, ORANGE, AVOCADO 
COFFEE, RICE, SUGAR, MEAT, CORN 

7. NEWSPAPER, ARTICLE, PRESS, COMMENTARY, HEADLINE 
SWIMMING, GYMNASTICS, SOCCER, FOOTBALL, BASKETBALL 

8. FAT, WEAK, THIN, TALL, SHORT 
LOOK, LISTEN, EAT, SMELL, CATCH 

9. DOG, HORSE, TURTLE, LION, ELEPHANT 
MONKEY, MOUSE, SNAKE, BIRD 

10. CHICKEN, COW, COAT, TIGER, BEAR, 

BUTTERFLY, WHALE, SHARK, FISH, ALLIGATOR 

Figura 2 

ampliar o vocabuldrio do leitor, com palavras usuais, mas que 
nem sempre s3o de seu conhecimento. Contudo, lembre-se: 
voce nSo precisa se limitar ao ingles. Espanhol, alemSo, fran- 
ces... Se depender do seu micro — e deste programa — , em 
breve voce serd um verdadeiro poliglota! _ 



Afonso Jos6 Simoes de Lime 6 advogedo da TELESP na Regiao Centro- 
Sul, sediada em Campinas; e Hademilton Viali 6 Engenheiro Eletricista, 
Chefe do Distrito de Campinas, da TELESP. 



1 CLS 

2 PRINT CHRK23 ) 

3 PRINT 

4 PRINT" DITADO • •••" 

5 PRINT 

6 PRINT"NICRO SISTEMAS" 

7 PRINT 

8 PRINT"Afon»o J. SI*o«* d« Ll««" 

9 PRINT 

18 PRINT"* Hadca 1 1 1 on Vt»li"iF0R L-l TO 2O001NEXT L 
26 ’Eat* progrua dntln-H »o CP-500 • »tcro* coapatlvtH 
50 DATA HOUSE, KNIFE, OUEN.TOUEL. SPOON 
60 DATA PENCIL, MIRROR. MOON. SUN, SKY 
70 X-10 

80 CLSIPRINT844."D I T A 0 O" 

81 PRINT8108, 

90 IF P-X THEN 430 

100 READ AS 

110 OUT 236.2 

120 FOR 2-1 TO 4000INEXT 

130 OUT 236,0 

140 P-P*l 

150 INPUT "ESCREVA" I B4 

160 IF BS-AS THEN GOTO 170 ELSE GOTO 270 
170 IF BS-AS THEN C-C*l 

ISO PRINT"VOCE ACERTOU "C" EM "P" PALAVRA(S) 

190 IF C-X THEN GOTO 370 

200 'RESPOSTA CORRETA 

220 OUT 236,2 

230 FOR Z-l TO 5000SNEXT 

240 OUT 236,2 

250 IF P-X THEN GOTO 420 

260 GOTO 80 

270 'SEGUNDA CHANCE 

290 FOR Z-l TO 500INEXT 

310 INPUT"TENTE DE N0V0> ESCREVA"»BS 

320 IF BS-AS THEN PR INT"C0RRET0I " 

330 IF BS-AS THEN GOTO 350 

335 PRINT 

340 PRINT"NAO..." 

342 PRINT 

345 PRINT"0 CORRETO E’..."AS 
350 IF BS-AS THEN C-Ol 

360 PR INT IPR INT"V0CE ACERTOU "C" EM "P PALAVRA<8) 

370 IF C-X THEN 380 ELSE 400 
380 FOR D-l TO 200 STEP 5 
400 FOR Z-l TO 3000INEXT 
410 IF P-X THEN GOTO 430 

420 GOTO 80 . „ 

430 PRINT iPRINT « INPUT"VOCE OUER CONTINUAR <8/N> |YS 
440 IF YS-"N" THEN END 

450 CLS1PRINT8400, "APOS CARREGAR , DIGITE RUN 
460 CLOAD 



Ditado 



TUDO PARA SINCLAIR /SPECTRUM NA: 

e _in PRAIA DE ICARAl, 211 / Loja 03 fgmsf 

3 I UIS NITEROl - RJ CEP 24.230 



TEL.: f0211 717-1700 



SOFTWARE ZX SPECTRUM*/ TK 90 X**: 



SOFT SPECIAL SYSTEMS - UfXVWHO 0*Clw»i*O 
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COO 


Tllulo 


Tip© 


Kb 


cDo 


Tltulo 


Tipo 


Kb 
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48 

48 


COD 
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Kb 
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Roulatia 
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48 


SF0O4 
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Ffbd 


agio 


48 


SJ086 
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agio 
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48 
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16 


COO 
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Kb 
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agio 


48 


SJ088 
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u 


SJ009 


Gulp Man 


acfo 


16 


SJ068 


Kong 


agAo 


48 


SJ089 
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agio 


48 


SJ0I0 


Phaanis 


acJo 


16 


&J033 


Jump Challanga 


agAo 


46 


SJ069 


Tutankhamun 


agAo 


48 


SJ090 


Pmt 


agAo 


48 


SJ011 


Zioom 


ac*> 


48 


SJ034 


Htgh Noon 


agfc 


48 


SJ070 


Mateo* Storm 


agio 


16 


SJ09' 


Android 2 


agAo 


48 


SJ0I2 
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48 
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agio 


16 


SJC71 


Etcape 


agio 


16 


SJOO 2 
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agio 


48 


SJOI3 
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16 


SJ036 


Scuba Dry* 


agAo 


48 


SJ072 


30 Combat Zona 


agio 


48 


SJ093 
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agAo 


48 


SJQ14 
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KSo 


16 


SJ037 


Full Thronla 
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48 
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Potty Painter 


agio 
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SJ094 
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agio 
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Draco Dan 


acfo 


48 


SJ038 


Fanatrato- 


•cio 


48 


SJ074 


Sir Lancelot 


agAo 


16 


SJ095 


3D Ant Attack 


agio 


48 


SJ0I6 


Tfiwa Gaia 


Mo 


48 


SX09 


Stv» 


agAo 


16 


SJ07S 


Eskimo Edcka 


agAo 


48 


SJ096 


Jumping Jack 


agio 


48 


sjoi; 


Jack A Tha Baamtaik 


acio 


48 


SJ040 


Tarrot Daklll 40 


«cAo 


48 


SJ076 


Beach Head 


agio 


48 


SJ097 


Aitro Biatta* 


agio 


16 


SJOIB 


Onllaf Tank* 


■cio 


48 


SJ04I 


Ad Altra 


agio 


48 


SJ077 


Kokotom Wilt 


agio 


48 


SJ098 


Pool 


Ulha* 


16 


&J0I9 


GaUtic Rardan 


•CAo 


48 


SJ042 


Nm/ii Cjunna* 


agio 


48 


SJ078 


Special Delivery 


agAo 


48 


SJ099 


Pinball 


dHtraxa 


16 


SJ020 


A©pMf Jam 


acio 


16 


SJ043 


A,ca<ka 


agAo 


16 


SJ079 


La ry Jonas 


agAo 


48 


SJ100 


Spaca Raidart 


agio 


16 


SJ021 


Momitf NVjnchaf 


acAo 


16 


SJ044 


Mataa 


agio 


48 


SJ060 


Harrier Attack 


agio 


48 


SJ10I 


Hungry Ho* act 


agio 


16 


SJ072 


Jungle Fava» 


•cAo 


48 


SJ045 


Puomama 


agio 


48 


SJ081 


Sabre Wu II 


agAo 


48 


SJ102 


Horaca A Spidr*i 


agAo 


16 


&J023 


Drrva In 


agio 


48 


S7046 


Fran/V 


agio 


16 


SJG62 


Holme Kanga 


agio 


48 


SJ103 


Horaca Goat Skimg 


agio 


16 


SJOJ4 


Football Managar 


attratkgra 


48 


SJ047 


30 Stanlfka 


acAo 


48 


SJ083 


Worse at Saa 


agAo 


48 


SJ104 


Cook Ml 


agfc 


48 


SJ02S 


Ntm Wa 


•nfantil 


16 


SJ048 


Son o< Blagga* 


agio 


48 


SJ084 


Chuck- Eggs 
747 Flnfit Simulator 


agAo 


48 


SJ106 


Simula do* da V6o 


umulagio 


48 


SJ026 


Pahacuda 


ac*o 


48 


S7049 


Automama 


agAo 


48 


SJ085 


wmulagio 


48 




Ivartio para Portugal! 







TODOS ACOMPANHADOS DE MANUAIS EM PORTUGUtS. Na compra de 3 programas receba gratis uma fita cassete virgem Soft Loader C 20da Special Systems (esta promocao 
nao 6 vilida para os programas em oferta). Gravacoes garantidas por 30 dias a partir da data de atendimento do pedido quanto a defeitos de fabricaoiio 

COMO COMPRAR PROGRAMAS: Faga seu pedido por carta, relacionando o cddigo dos produtos deseiados, quantidades. valor unitirio e total por produto. Ao termmar feche um 
total geral. Nossos pregos para PROGRAMAS j* incluem as despesas postais. Nao se esquega de identif icar-se e ao local para remessa. Anexe cheque nominal a ATI EDITOR A LTD A., 
Av Pres. Wilson 165 grupo 1210 Centro - CEP 20. 030 - Rio de Janeiro • RJ. Seu pedido seri prontamente atendido logo apds a liberagao pela rede bancaria do valor correspondente. 
HARDWARE TK 85**: REDEFINIDOR DE CARACTERES SPECIAL SYSTEMS MOD FHL-1K Itestado pela Eqmpe Micro Sistemas e analisado na edigao 51. dez. 85) C6d 99 FHL 
. 5 OTN's (a postagem do pedido deline o valor da OTN a ser aplicado) SO para TK 85* V Despesas postais nao mcluidas Solicit* informagoes adicionais a STOP Inlormitica 

SOFTWARE SINCLAIR: Absolutamente TUDO j£ profcuzido para a linha e langamentos inOditos. Novas versoes. melhoradas. corngidas e/ou ampliadas. Software redefinido para 
mAquinas que se utilizem do Redefinidor de Caracteres Special Systems ou adaptagoes compativeis Solicite nosso catilogo. 

SUPRIMENTOS: Fita cassete virgem Soft Loader C-20 especifica para micro computadores (em oferta). C6d 20 KSL . . CzS 14.00 a umdade. Quantidade minima de 12 unidadespor 
pedido. Despesas postais nao inclufdas. Pedidos diretamente para a STOP lnform4tica Atendimento pelo reembolso postal. Solicite nosso catSlogo de suprimentos. 

EM BREVE DANDO SUPORTE As LINHAS MSX E COLOR. * Marca registrada Sinclair Research Ltd ** Marcas registradas Microdigital Eletromca Ltda. 






zx spectrum zx spectrum zx spec 



1255 I* 5 =29 AND 9 =£5 AND s 
1 TnEN i_C' *3-15 LET *.-2 
I960 I* g *1* then let •»9.15 L 



Roberto Gil Brasil 



Elaborado para microcom- 
putadores compativeis com o 
ZX Spectrum, Microcirco 6 
um jogo onde voce deve aju- 
dar na exibi^do de dois paiha- 
?os que tentam estourar bexi- 
gas (bolas) no teto do picadei- 
ro. Sua tarefa sera controlar 
uma gangorrra, evitando que 
os palha^os caiam no chdo 
apos cada salto. Para isto, e 
preciso fazer com que eles 
atinjam a parte reta da gan- 
gorra que estiver vazia. Cada 
vez que voce deixar cair um 
palha 9 o, terd perdido uma 
chance (sao tres ao todo). 

Uma bexiga estourada vale 
10 pontos e a cada 20 fura- 
das, surgird o DESAFIO: um 
palha 90 sera lan 9 ado de um 
canhdo e voce tentard faze-lo 
passar por um buraco que se 
move no teto. Se veneer o de- 
safio, voce ganhard 1000 pon- 
toS de bonus. Lembre-se que 
nesta etapa hd apenas duas 
chances. Tanto no DESAFIO 
quanto no jogo normal os 
movimentos dos palha 90 s sdo 
controlados pelas teclas 5 e 8. 





BEN K12CRCC IBCO - 


— 19S3 EG9 




:_fae 6*099 LOAD 




LOAD 

■3 


•AUE MICPOCIACQ" 


LINE 2 



Listagem 1 

No decorrer do jogo, serdo 
tocadas vdrias melodias, de 
acordo com a ocasido; sdo 
elas: “Valsa dos Brinquedos”; 
“Tico-Tico no Fubd”; “Can- 
Can” e parte da “Marcha Fu- 
nebre”. 

Este programa devera ser 
gravado e digitado em partes, 
e a seqiiencia abaixo deverd 
ser seguida a risca para o su- 
cesso da digita 9 do: 

1 - Digite a listagem 1 e gra- 
ve com GOTO 3; 



Microcirco 



ESTE 


UTURh 


DO 




C'RC 


G • 


PRINCIRh 


L 




100 


300 


hp r 


£ 




n 


ta 


c a 0 






S00 


890 


In i 


r 


x a 


L 


l z 


a v a r i a v a 


X 


2- 


1000 


2150 


LOO 


p 


P 


r 


x n 


c i p a l 






2500 • 


2550 


Con 


♦ 


3 9 


a 


m 


d a p 0 n 1 0 s 






5000/ 


3080 


Con 


T 


39 


a 


m 


da chance 


£. 








i M 


a 


r c 


h 


a 


Fun a bra 






3500 


3700 


Bon 


ij 


s 


d 


a 


1000 Pont 


0 


s 






e At 


y 


a 1 


C 


a 


CRN CRN 






4000/ 


4310 


r i n 


a 


t 


d 


0 


jogo Musi 


c 


a 






TIC 


c 


T I 


CC 


NO FUBfi 




a 






q u a 


d 


ro 




d a 


recorded 






5000/ 


6300 


Des 


a 


r 1 


0 










*• *00 / 


8070 


Ins 


* 


ru 


c 


oa 


a d 0 j 0 9 0 






.500, 


9550 


M U S 


i 


ca 




CRN CRN 







Estrutura do programa principal 



2 - Digite a listagem 2 e gra- 
ve com GOTO 600 (Obs.: O 
conteudo da listagem 2 serd 
gravado apenas na forma de 
c6digo ap6s o comando aci- 
ma. Se voce quiser gravar ape- 
nas na forma de eddigo em 
BASIC para uso futuro, utili- 
ze o comando direto SAVE 
“MC-LM”, mas grave-o em 
uma fita separada, pois essa 



listagem ndo serd usada para a 
execu 9 do do programa. Na 
verdade, ela serve apenas para 
gerar os caracteres defmidos 
pelo usudrio e as rotinas em 
c6digo de maquina usadas 
no programa.); 

3 - Digite a listagem 3 e gra- 
ve com o comando direto 
SAVE “MC” LINE 100 
(Obs.: Ao digitar esta lista- 



i 



10 C LEAP 34099 

£0 PE5TOSE 2 5 FOP <1*64300 TO 
3*31' OE«C t a POKE n . Cd NE*' 

£5 C AT A 33 14? 23306,96126 3 
5 215 16,251 201 0 . 0 0 . O 22 , IS . 2 

30 FOP n *64319 TO 34943 POKE 
n 32 NEXT n POKE 4*94? £2 ROr 
E 3*343 £0 POKE 4*9*5 2 

35 FOP n *6*950 TO 6497S POKE 
n 32 NEXT n POKE 64 9'9 22 PQK 
E 5*960 21 POKE 6*961-2 

40 «0P r. *6*982 TO 65010 POKE 
n 32 NEXT n 

SO PE5T0PE 65 FOR <1*6*100 ?G 
6*135 PEA: C4 POKE 0 C € NEXT 

45 CATS 22 19.15,32 32 32.32 3 
2 14 * 1*6 22 £0 15-14.2 151 151 
.15* 32 32.16 e 1*~ 22 .21 13 32 
32 32 14 2 153 13* 152 95 
110 RESTORE 120 FOP n =6*200 TO 
5422! PEAO Cd POKE n.CJ NE'T 
n 

120 DATA 22 IS 13 16 4 143 22 2 
0 13 16 6 1*' 32 32 32 16 2 1*9 
131 131 £2 21 13 16 2 132 93 1*9 
150 

140 RESTORE 150 FOP n *6*300 ?; 
*4530 PE*: :a POKE r> C<J ME** 



0 , 0 33 , 100 .250 .06 36 126-35 215 
16 231 201 

160 DATA 58.102.250.25* 02.19* 



33 100,230.06 36 126 . 35 . 215 . 16 . 2 

31.201 

ISO RESTORE 190 FOP n *6*600 TO 
6*616 READ ca POKE <1 , Cd NE«T 
n RESTORE 200 FOP n *64620 TO 
6*6*3 BEAD ca POKE n.ca NEXT 

n 

190 DATA 56 102.250.254 22.154 
108 232.62 21 30 102250 30,113 
250 50.126.250 

200 DATA 58,102.250 60.50 102 2 
50.50.113 250.50 126,250 33,100 

250.06 36.126 35,215 16 251 201 
240 RESTORE 250 FOR II «6*?0O TO 
6*723 READ Cd POKE 0 , Cd NEXT 

250 DATA 58.08 92 . 25* . 53 . 202 21 
S 252 234 56 202,12.253.33.200 2 

30.06 29 126 35 215, 16. 251. 201 
233 RESTORE 260 FOR n *6*?30 ?o 
6*7?3 READ Cd POKE n,Cd NEXT 

260 DATA 38. 202. 250. 254- 02, 194 
238 252 62.03 30.202 250 50.208 
250 50.222 250 00 58.202 250 61 
50 202.250 50.208.250.50 222 230 
33 200 . 250 . 06 . 29 126 35 . 2 15 16 

251.201 

265 RESTORE 270 FOR n *6*760 *3 
6*823 READ cd POKE n.c a ME "T 

2?0 DATA 58. 202. 250. 2S*. 22, 19* 
32 253 62 21 50 202.250.50.208.2 



gem, os caracteres de A a U 
que aparecem em inverso (ex- 
ceto na linha 220) devem ser 
digitados no modo GRAPHIC, 
pois sdo os caracteres, defini- 
veis pelos usudrios, usados 
pelo programa. Quando eles 
forem digitados, ndo irdo apa- 
recer invertidos; estdo assim 
na listagem apenas para que 
fiquem destacados dos outros 
caracteres.); e 

4 - Ap6s executar a seqiien- 
cia anterior, o programa esta- 
rd pronto para ser usado. Para 
isto, coloque no gravador a 
Fita com os tres segmentos do 
programa, de o comando di- 
reto LOAD”” e aguarde o 
carre gamento ser completado. 
Divirta-se, entdo, com seu Mi- 
crocirco. 



Roberto Gil Brasil cursa a ultima 
sirie do segundo grau no Col4gio 
Monsenhor Guilherme, em Foz do 
Iguacu. Atualmente, ele estS fa- 
zendo estigio de programagSo 
em BASIC. 



•0 50 222 250.00 38.202 £50 . 60 5 
0 202 230 50 208, 250.50 £22.250 
:: 200.250 06 29 126 35 £15 16.2 
51 201 

310 = £N B€3«f. d« C*r*Ct(C€5 
115 RESTORE 340 

320 r 0P ,*1 TO 11 BEAD )l FOP 

n *0 *: ~ BEAD i 

330 POKE USB »*»r. t 

340 DA'S i £4.60 126.2S5.255 




3*0 DATA 
255 12* 60 
350 CAT* 
99 

ieo :ata 
126 60 2* 
3'0 :a’6 
0 SO *0 
360 DATA 



410 CA'A 
420 DATA 
0 0 253 
430 :at* 



S .28 . 8 26 62.93 42 
2* 60,126.255.126 
60 £55 255.60 60.6 
60 195 195 195 195 
0 0 0 0 3 12 *8 19 
3 12 *4 192 ,0 0.0 

000 255 0000 
60 . 195 195 195 . 195 

192 *8.12 3,0 00 
0 00 0 , 192 . 48 12 



Listagem 2 



135 *0B n *0 TO 31 PRINT AT 21 
n CAPER CND*9 Ink ANC*9 ■ N 

EXT r 

140 »0P <1.21 TO 0 STEP -1 PR IN 
T AT <i 31 Ink PnD- 9 RARER PND* 
9 ■ NE»T r 

1*5 *0R <i*3. TO 0 STEP -1 PR In 
T AT 0 r. RACER AND *9 INK PNC** 

« NE-T n K t -5H 0 
0 INK 9 Plot 16.135 DBA. 5 
£* DAAU 0 -24 DBAU 18 24 DBA-i 
0 - 2 * 

155 =lOT *; 135 dpal 0 2 * 

180 PLOT 86 135 oral * 24.-3 

165 PLOT 60 135 DRAu 3 2* DBA 

U 16 0 DBAU -4 -11 DRAu -1* 0 
DRAu 1* -12 

170 BLOT 3' . 135 DRAU i 2* DBA 
u 16 O DRAU -5 -24 DRAu -14 0 
175 PRINT AT * 2 CIBCO 
180 BEK* DIUKKI Ip j. ClKCO 
190 INK 1 FOB n. 112 TO 0 S'EB 
-1 PLOT 12' 12' DBAl n -'2 P L 

OT 12'. 12' DRAU -n . -72 NEXT - 
195 'OP r, »ie TO 0 STEP -1 PLOT 
16 55 DRAu INK 2 -r -30 PlO? 
23 9 55 DRAu Ink 2 n - 30 NE *T r. 

200 'OB n *55 TO 25 STEP -1 E L 0 
T 16 n DBAU INK 2 32 0 PlOT ** 
n DBAU INK 4 50 0 BLOT 96 n 
DRAu INK 2 *4 C BlOT 160 n DBA 
u Ink 4 50 0 PLOT 200 n DRAu I 
NK 2 38.0 NEXT n 
205 'OB 0*21 TO 0 STEP -1 BLOT 
128 *5 DRAU INK 0 -r -24 BLOT 
128 55 DBAU INK 0 r - 2 * nE*t 

208 BlOT 12- . 12? DRAU 0 16 '0 

B n *9 T 0 0 STER -1 BLOT 12' 1*3 
DRAu Ink i.n -9 next n 
2 10 INK 0 BlOT 53 0 DBAl '0 3 
0 C_0* 204 0 DOAu -'0 30 

220 P RINT m AT 12 P,-«IiiGK< 
UMti II I :■ 9 » f ' BEST3RE 240 
225 'OR 5*1 T 0 91 READ 50UN 
D .25 .6 I' |«45 'MEN SOUND .5 

10 PAUSE 5 lET 1 . 5.1 

230 IF INfE I*ChE| 13 then Bun 
280 

235 NEXT s 

240 DATA -544044-144-3 
44-155 

2*5 DATA -355-355-555- 

5 4 4 0 *4 

250 DATA -144-344-155- 

5. 5. 5,0.* 4 

255 DATA -5440*4-1*4-3 
*4-155-355-355-555 
. — 5 * 4 0 * 4.-1 4 4 -3,4 4,-1 5 
5 -5 5 5 0 4 4 
260 SOUND .'5 16 GOTO 220 

280 BOEDER ' eR IGHT 1 EAPEE ' 

CL 5 

290 PRINT ST 10.11 INK 9 Ini I 
r U COti Tse 1* 5 N ‘ !• INKEi 8 

• 5 OB INKE »• 1 Then bun 80OO 
295 I' INkE «• N OR INKE.*. - 
THEN CLEAR PUN *00 
300 OOTO 290 

*00 C IN . ( 5 ?< DI-* p 15 , 

410 LET tt .180 LET pt .0 
420 LET c K . 3 
*30 LET 1.15 

eoo BORDER l PAPER 1 BBI0"T I 

810 ’INK 6 'OB n *0 TO 12 PlO* 
00 CBAU - 175 PLOT 255 0 DBA 
u -n 175 NE'T n 
620 'OB n « 1 TO th-l PRINT at 0 
n.4 INK 5, CMC* 1*5 NE'T n 

630 PRINT at 0 20. INK 9 SI 
8*0 BLOT 0 166 DBAU INK 9.25* 

0 

850 PRINT AT 2,2. INK 1 rrrrrr 

rrrrrrrrrrrrrrrrrrrrr" 

560 'OB r>»2 TO 28 
8'0 Le* - -'0 in 2 .INT in 2 1 
880 PRINT A- ' 3 . a n Ink iRNC. 5- 
81. AT 3*d n a 
890 NE*T n 
1000 REK1 J000 

1010 -ET n*l poke 6*102 12 RO 
k.E 6*113 12 POKE 64128.12 SOSU 

B 20O0 LET 9 * 1.1 

1020 PAINT AT i: 1 — 

1025 *0B n *2 TO 8 PRINT AT 10 n 
. INK * ■ AT 1} n INK 6 A A 
T 12 n INK 2 a PAUSE 2 BRIN 
T AT 10 . n AT 11 n • AT 12 

O . ' NE XT n 

1030 BRINT AT 9 9 INK 4 8 A* 
10 9 INK 6 9 AT 11 9. INK. 2 

1035 PAUSE 2 PAINT AT 9 9 A 
T 10 9 AT 11 9. 

1040 FOB n .10 TO 18 PRINT AT r. , 
9 . INK 4 g .AT n.l j INK 6 S 
AT n .2 9 Ink 2 § AT r 9 

AT n.l 9 AT n .« 9 NE«' 

n 

1050 PRINT A' 13 1 
1070 OOTO 1210 

1100 SOUND .01 -12 SOUND .05 -1 
2 

1105 LET *1.1 BAND USB 6*900 - 

ET f.PEEr 6*202 POKE 6*102.' = 

OKE 64113 , ' POKE 6*126 . < 

ill© LET j.inT <r-lBND*a>< 

1115 C05UB 1500 
1120 lET s.JnT RNDOi 
1125 I* 9 .10 AND 9 >16 Then lET 
1 *9 OOTO 1300 

1130 I' 9 *9 AND I 1 THEN LET 
.9 * I NT AND .2 1 -14 LET '9.2 
11*0 IF a .1- THEN LET x . AB5 '9 
-INT * RND *2 1 -1*1 LET 9.-2 
11*5 IF 9 ■ .9 AND S = 1 THEN LET I. 
9 LET 1>. .5 OOTO 1310 
1150 COSUB 1600 
1200 BEH 

1205 IF 1 , < and 1 (.1 then COT 

0 3O0O 

1210 SOUND .01 -12 SOUND .05 -1 
2 

1220 LET $1=2 BAND USE 64900 L 
ET I * 1 PEEK 6*1021 POKE 6*202 < 
POKE 64208 . I POKE 6*222 . < 

1235 GOSUB 2000 POKE 23560. CODE 
INKEY* 

12*0 LET J.INT f.lPN0»2*5.i 

12*5 GOSuB 1500 

1250 LET s * INT RHD«3< 



. .9 GOTO 1300 

12-5 :• 19 -C2 And 9 >2* A!.: 1 . 

1 'MEN LET . ,} lE t *» *-.5 GOTO 
1310 

1280 COSUE 1600 

1290 .E* '.<.5 IF . >( AND 1 < 

•1 T men GOTO 3000 
1295 GOSuE 2000 GOTO 1100 
1300 S£m DESCIDA 

1305 LET s*IMT AND *3 1 IF S*1 T 
HEN .£' Ji ..5 

1310 IF S 1 then let si =-.5 
1:20 FOB n *5 to IS STEP 2 GOSuB 
2005 LET >*•.!■ 

1340 p R INT AT n . I INK. 4 B 1 AT 
n.l i INK 6 S AT n.2 < Ink 3 



n . i > Ik 
1350 GOSl 



1350 GOSuB 2005 POINT S' n . 

AT n . 1 . • AT n .2 . < 

1380 NE'T r. 

13*0 :* • *INT I THEN GOTO 1390 
1380 -ET i .INT i .j . 

1100 I* It.l T-fi GOTO 1205 

1400 IF 5 '.2 THE • GOTO 1290 
1500 E£M Sue IDA 
1505 IF 1 • *1 -MEN let 9 .9 *2 
1510 IF Jt.£ THEN LET 9 . 9-1 
1515 « 0 R n.18 TO 5 STEP -2 
1520 I* RND.. ? AND 9 28 then lE? 
GOTO 1530 

.;*• :* on: .3 and 9 3 then le- 



-540 GOSuE 2005 

1550 “INT AT n-2 9 AT n-1 j 

1560 I» SCREEN* 2 9* r an: n 

-2 »* then GOTO 2500 
IS'O NE'T r. 

1580 RETURN 
1600 RE- DESCIDA 
1610 -ET n .5 

1620 foe > *9 *0 STEP * GOSUB 
2005 

ie30 SB INT AT r I INK 4 H A? 
r, . ■ • ink 6 3 AT n .2 • Ink 2 



16*5 IF •> 

1650 I* n 
1660 NeXT 
16 '0 -ET n.n-1 bp INT AT n • IN 

• 4 8 A* n.l i IN. 6 s AT r 

•2 ■ IN. 2 a PAUSE £ PAINT 
AT n l AT n . 1 l AT n .2 i 

RETURN 

200O = EN MOU IHENTO DA GANGOBAA 
2005 P 3k * 235e0 CODE "•<• E ■ * LET 

1 .USB 64900 

2010 IF »K*1 Then let o .USB 6*50 

0 -£T ».E££. 64102 

2020 I* si •£ then l£T o.uSB 6*'0 

0 LET (.BEE- 6*202 

2030 SOUND .00* INT -< i RETu 



*190 "EXT n 

*195 INK 2 flash 1 

4200 PR INT AT 1 6 

1 ■ . 1 l'.e I 

*S^F0B n =2 TO 16 PRINT AT n 6 
■ ' at n 25 |' NE'T n 

4220 FLASH C O '-'EB 0 PRINT AT 1 
9 3. Passions 4i4j ct'l 
4225 LET u *0 

4230 RESTORE *300 FOB n .0 TO 10 
? BEAD r . SOUND I 1.4 ' -V 
*2*5 IF INkEi»=Chb» 13 Then Gu 
TO 410 

*250 NE 'T n LET y *9 .2 IF 9 1* 

Then let 
*280 SOTO *230 

*290 BESTOBe 4300 FOB N.l TO 10 
e BEAD A SOUND .2, A NEXT N 

4300 CATS .12 42 .25.40 .12 3e . 

25 3' .25 35 .25 34 .25.3? .25 3 
6 .25 40 1 *2 1 42 .12 30 .12 29 
.12 30 .12 31 .12.30 .25 35 .12 

30 .12 29 .12 30 . . 12 31 .12 30 

.25 34 .12 30 .12 29 .12 30 .12 

31 .12 30 .12 *0 .12 3' .12 3* . 

12 30 .12 26 .12.27.1 26 .12 35 
.12 3* .12 33 .12 31 .12 35 .2* 

*0 .12 38 ..2 3' .12 35 .12 30 . 

12 35 .25 36 .12 38 .12 3? . 12 3 
e .12 3' .12 25 .12 29 . 12 32 . 1 
2 35 .12 38 .12 3? .12 35 
*310 DATA .12 :<4 .95 *2 .12 0 . 

12 *2 .12 30 .12 29.. 12 30 .12 3 

1 .12 35 .25 30 .12 29 .12 30 . 1 

2 31 .12 30 .12 3* .25 30 .12 29 

.12 30 .12 31 .12 30 .12 40 .12 

3' .12 34 .12 30 .12 28, .12 2' 

.12 26 1 35 .12 3* .12 33 .12 31 
.12 3* .12 40 .25 38 .12 3T .12 
35 . 12 30 . 12 35 .12 38 . .25 38 
.12 3~ .12 36 . 12 3' .12 30 .12 

3* .12 3' .12 *0 .12 38 .12 3~ 1 



6220 -ET pcs =26 -n PRINT AT 4 po 

J DAEEC 1 

62*0 I» INKERS* 5" THEN LET a=i 
i-1 

6250 IF INKE *= 8- then let 
• »1 

6260 PRINT BT n-2 *J INK 4 8 

A' n-i a a Ink 6 a . AT n a a IN 

6265 SOUND .a* -n.i POINT AT n - 



62'0 NE'T r 

6280 IF aaapos OB aa*P0J-l th[ii 
GOTO 35C0 
6290 NEXT . 

6300 GOTO 800 
-000 STOP 

3000 BARER 2 BORDER 6 Ink 9 C 
LS 

8010 PRINT TAe 10 MICRO CIBCO 
8020 PRINT 0 painaco aooe P 

* rt cs»i < 'vara u*a &«.i9» 

• on 9*nna lOPsntos < aect't 
voc* n»o dt'-t-ra d«»»*r o pain 
ace :»>' no cnao ie n»o p«-a« 



6020 NE'T n 
6025 bbinT AT * 2 
6030 INK 9 PRINT 
*10 

6050 -E8T0BE 60'0 
BEAC ; SOUND 



PRINT AT 10 12 
60'0 »0R .*1 



9520 DATA 1 O .25 2 .23 5. 25 * 
.23 2 .5 ' .3 ' .23 ' .23 9 .25 
4 .23 3 .52 .52 
9530 DATS .25 £ .25 3 .23 4 .23 

2 .23 0 .23 12 .25 11 .25 9 .25 

' .23 5 .23 * .23 2 1 0 .23 2 .2 

3 3 .23 4 .23 2 

9540 DA'S .3 ' .3 ' .25 ' .23 9 
.23 * .25 3 .5 2 .5 2 .25 2 .23 
5..2S * .23 2 .25 0 .23 ' .23 2 

9330*: ATS .23 0 .25 ' .25 2 .25 
* .23 0 .23 ' .25 2 .23 * .23 0 

.23 ' .25 2 .23 4 .25 0 .23 12 



60'0 DATA .23 -1' .12 -10 .12 -1 
' .25 -13 .12 .12 -13 .23 -12 

.12 -5 .12 -12 .23 -10 .12 -S . 



20 is ink c a 
SiS0*OR i*l TO 2 



2313 FOB ».i tq * SOUND .005 20 

. f.E'T . 

2520 BBINT AT n-3 9 AT n-2 9 

2530 PAINT AT £ a 

95*0 let '.K.t'.iS I* '.1*900 the 

N »r '. 1*0 GOTO 6 O 00 

9350 GOTO 1580 

3000 be m Bos. eons. cn»n;«j 

3005 LET c«*cn-l BBINT AT O 5 

3010 FOR : *1 to cn-l 

3013 BBINT BT 0,2,4. INK S.LMB* 

1*5 

3020 NEXT I 

3023 OVER i BBINT AT 91 , ink 

* . AT 91 I 0 INK 6 rn IN 

• 1 «• OuEE O 

3030 =£ST0B£ 30*0 FOB : *1 TO 8 
cea: ,u SOUNC 9 i NE • T ; 

3040 DATA . 0 1 9 .3 0 1 0 .5 -1 
1 - 11-110 
3050 BAND USB 6*900 
3060 I* ck .0 'men GOTO *000 
2OS0 GOTO 1000 
3500 PEN BONUS 
3510 INK 4 BABER ' BOBDEO 1 
3330 flash i cls 
33*0 »0E r .0 TO 31 
3330 BBINT A' 0 2 PAPER END >9 
INK RND *9 B AT 1 2 a AT 90 I 

3680 NEXT 2* 

3570 FOR 2*1 TO 90 

3380 PRINT AT 2 O PAPER RND* 9 

INK RND • 9 Bi AT 2 30 ■ 

3590 NE'T 2 

3600 PLOT 68 19- DBAU 0 9* DBA 

j 16 O DRAu 0 -12 -1 DRAu 0 -1 

9 -1 DBAL -16 0 

3610 BlOT 99 19' DOAu 0 94 DBA 

J 16 0 DBAU O -9* DBAU -16 0 

3690 BLOT 116.12' C-BAu 0 2* DR 

AU 16 -2* DRAU 0.24 

3630 BlOT 140 131 DBAu 0 -2* C 

BAU 16 0 DBAu O 24 

3640 Blot 16* 12* DBAu 16 0 DR 

AU 0 12 DRAu -16 O DRAu 0 12 

DRAU 16 0 

3650 BlOT 96 S' DRAu 0 16 DBAu 
-2 -4 

3660 CIRCLE 109 95 8 CIRCLE 12' 
93 i CIRCLE 1*4,95.6 
3670 PRINT AT 18.12 PONTOS 
3680 GOTO 93O0 

3690 wET pt.pi *1000 flash 0 

3 '00 GOTO *00 

*000 pen <m*i 

4005 RESTORE 4300 

4010 BORDER 5 PAPER 6 INK 9 C 

4020 PRINT AT 2 S Ron loa P' 
4030 'OB K*1 TO 5 

4033 IF pi p K AND n *5 Then GO 
-0 4060 
4040 NE'T n 

4050 PAUSE 60 GOTO *150 
*060 'OR n.lS TO 8 STEP -1 
4085 READ 2 • SOUND : ■ 

4070 PRINT AT 7 n CONGRATULACOE 
5 A' - 22 

40 '3 BBINT AT 9. n-2. BELA APRES 
ENT AC SO AT 9 2* 

4030 K.£.T r. 

4090 BBINT AT 13.', DIGITE SEU N 
ONE A- 14 S iaa> . 71* t !■»» 1 

4095 POKE 23609 100 INPUT TAB 1 
0 LINE r| IF l£N 7 THEN GOT 
C *093 _ 

4100 FOR nsS TO n»l 5T£P -1 
4110 uET c in *p >n-li LET VI n . 
<»m-l 
*120 NEXT n 

*130 LET pm *pt LET V|mi*r| 
4130 EOBDEB i BRIGHT 0 PAPER 6 



sound .003 20 [Listagem 3 






9 O) 



INTERFECE 

SIKTTETIZADORA 

DE VOZ R\LM 

Digitou... Falou... 






3J/ Reproduz a voz hu- 
1 / mana perfeitamente. \T 

/ Permite que se varie a to- \ 

/ nalidade, volume e velocida- ' 

de da voz. 8asta digitar a pale- 
vra e ouvir com a pronuncia correta em ingles ou por- 
gues. Facflima operagSo. Ji vem com alto-falante na in- 
face. r^~-~ — — 



AplicacSes: 

— Aprendlzado do ingles; 

— Torna seus programas apli- 
cativos educativos e jogos 
falados. 

— Acompanha disco c/soft- 
ware de demonstracSo e 
manual detalhado. 

Garantia de 90 dias. 
Acompanha tambim 
Mini-dicionirio c/3.000 pala- 
vras no soft, para cosultas ri- 
pidas em portugues/ingles ou 
, vice-versa. 



Foewjo receber. 

I □ INTERFACE PALM. DISCO 
I E MANUAL POR Cz$ 680,00 
| □ MAIS INFORMAC0ES. 

1 NOME: 

I END.: 

CEP: CID. ; 

I 

| ENVIE CHEQUE NOMINAL A 
I PALM SOFT LTDA 
R- AUGUSTO STELLFEDL, 1314 
I CEP 80000 - CURITIBA - PR 
I FONE: (0411 224-5946 
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Raramente as mensagens de erro dadas pelo seu micro sao capazes de 
ajuda-lo a identificar a origem do problema. Agora, com este 
programa, seu Color Ihe fornecera informa^oes bem mais completas. 



Mensagem de erro 
no Color 

Claudio Costa 



E rrar e humano. Que o digam os computadores, ao se 
verem 3s voltas com instru^Oes que mandam ler arqui- 
vos que nunca foram abertos; pedem que se vd para 
uma linha que nffo existe ou que se retome de uma 
sub-rotina na qual jamais se entrou; tentam operarcom matri- 
zes nJo dimensionadas; destoam das regras de sintaxe. . . £ de 
levar o mais poderoso dos chips de ultima gerasSo a “loucura”. 

Isso so nffo acontece gramas £s rotinas de tratamento de er- 
ros, que nesse instante interrompem o que estiver sendo feito 
e informam ao humano usudrio a ocorrencia de algum engano. 
Do ponto de vista da mdquina, a importancia de tais rotjnas 6 
6 bvia, pois as conseqiiencias de se continuar o processamento 
em tais conduces seriam, no minimo, imprevisiveis. Do lado 
do usuario, no entanto, as coisas sffo bem menos simples; 
por serem bastante genericas, essas rotinas dificilmente se mos- 
tram capazes de ajudar na identifica^Jo dos procedimentos 
que resultaram numa mensagem de erro; raramente elas ofe- 
recem indica 9 < 3 es mais precisas sequer sobre a posi^Jo onde 
determinado erro ocorreu. 

0 TRS-Color nffo constitui exce 9 do d regra, mas, em todo 
caso, 6 possivel contornar esse problema dando uma mdozi- 
nha ao sistema operacional para melherar suas rotinas de 
error trap. Vejamos como. 



10, enquanto que algo como PAINT @ (20, 30), por estranho 
que pare 9 a, funciona normalmente. 

A tarefa de “ler” o texto do programa BASIC fica a cargo 
de uma rotina de nJo mais que 12 bytes, conhecida como 
CHRGET, cuja listagem deve parecer familiar a quern ja me- 
xeu com micros da linha Apple: 



9F INC SA7 
A1 BNE SA5 
A3 INC SA6 
AS LDA S2DD 
A6 JMP SAAIA 



• INCREMENTA BYTE SA7 

• SE NAO FOR ZERO, SEGUE P/ SAS 

• CASO CONTRARIO INCREMENTA SA6 

• & PECA UM BYTE DO PROGRAMA 

• CONTINUA O PROCESSAMENTO 



Uma chamada do tipo JMP ou JSR $9F incrementa 
CHRGET e carrega no registrador A urn byte do programa 
BASIC, que pode ser interpretado como um token, o codigo 
dc um curater etc. Os bytes $ A 6 c S A7, por sua vez, indicam 
a pos^ffo corrente do programa, o que alem de servir de refe- 
renda para o interpretador, e usado nos testes de sintaxe de 
varias instru 9 bes. Vamos ver, por exemplo, o cheque de sin- 
taxe por virgula: ele e requerido por diversas fun 9 < 5 es do 
BASIC - inclusive PAINT, a que nos referimos ha pouco - 
e executado por uma rotina localizada em SB26D, que manda 
imprimir uma mensagem do tipo ?SN ERRO, caso este delimi- 
tador nSo seja encontrado: 



ROTINAS DE TRATAMENTO DE ERROS DO BASIC 

Um erro, para o BASIC, pode ser traduzido de varias ma- 
neiras, das quais a mais comum e a discordancia dos parame- 
tros funcionais ou de sintaxe de uma determinada instru 9 ffo. 
Uma das principais tarefas do sistema operacional, ao executar 
um programa em BASIC, e checar se esses parametros estao 
corretos. No TRS-Color isto e feito comparando-se o texto 
da instru 93 o presente na membria, a medida em que vai sendo 
lido, com os parametros especificados pela rotina correspon- 
dente na ROM. 

Com rela 93 o iis regras de sintaxe, em particular, n£o ha 
como evitar algumas idiossincrasias do pessoal da Microsoft; 
por exemplo, PRINT TAB (10); “X” (observe que ha um espa- 
90 entrc TAB e o parentese) nao impnmc um “X” na coluna 



B26D LDB #S2C 
B26F CMPB [SA6] 
B273 BNE SB277 
B275 JMP S9F 
B277 LDB #2 
B279 JMP SAC46 



• B- COD. ASCII DA VfRGULA 

• COMPARA COM BYTE ATUAL DO PROGRAMA 

• VAI P/ SB277 SE FOR DIFERENTE 

• CASO CONTRARIO TUDO OK; VAI PEGAR OUTRO BYTE 

• B- COD. DE SN ERRO ♦ 1 

• SEGUE P/ROTINA DE PROCESSAMENTO DE ERRO 



Para a rotina que inicia em $ AC46, convergem, alem desta, 
todas as demais rotinas de verifica 9 Jo de erros do sistema ope- 
racional: ela constitui a ultima fase do processo de error 
trap e realiza uma serie de opera 9 bes relacionadas com o tra- 
tamento e a identifica 9 ao do erro detectado. Os primeiros 
passos desta rotina procedem a um MOTOR OFF e ressetam 
o stack e os parametros das rotinas de impressffo, restabele- 
cendo a imprcssSo no video, se necessario. Em seguida, e 
enviada para a tela uma mensagem idcntificando o tipo de 



erro, e caso este tenha sido verificado num programa, o nume- 
ro da linha em que ele ocorreu. 0 mecanismo de impressffo 
dessa mensagem e o seguinte: 



AC 5 A 


JSR 


SB9AF 


• IMPRIME UM "7" 


AC5D 


LDX 


•SABAF 


• X APONTA P/ O INlCIO DA TABELA DE ABREV. 
DAS MENSAGENS DE ERRO 


AC60 


ABX 




• SOMA B COM X 


AC61 


BSR 


SACA0 


• IMPRIME A ABREV. DA MENSAGEM 


AC63 


BSR 


SACA0 




AC65 


LDX 


#SABE0 


• IMPRIME A PALAVRA "ERRO” 


AC6B 


JSR 


SB99C 





Inicialmente, o registrador X aponta para a base de uma ta- 
bela contendo as abreviaturas das mensagens relativasSs 25 pos- 
si'veis situa 90 es de erro; voce pode ver esta tabela digitando FOR 
A=&HABAF TO &HABE1 :PRINT CHRS(PEEK (A));:NEXT. 
Cada abeviatura e sempre formada por dois digitos - em ge- 
ral.duas letras - e assim e' sb somar o registrador B oom o regis- 
trador X para se obter o inicio da abreviatura na tabela (por 
este motivo, o registrador B, ao entrar na rotina, deve conter o 
codigo de erro mais 1 ). 0 proximo passo 6 testar se o computa- 
dor se encontra a nivel de comando direto, devolvendo-se o 
controle ao teclado em caso afirmativo; se nffo, imprime-se 
antes o numero da linha onde foi observado o erro - na ver- 
dade, e impresso o numero da linha corrente, ou seja, a linha 
que estava sendo executada no instante em que foi interrompi- 
do o processamento. 

Resta, por fim, ao usuffrio reparar o engano que cometeu 
e torcer para que ao digitar RUN, novamente, tudo de certo... 

ROTINAS DE ERRO DO USUARIO 

0 sistema operacional destes equipamentos preve, con tudo, 
a incorpora 93 o de rotinas de erro desenvolvidas pelo usuffrio. 
Estas rotinas deverffo fazer uso de uma liga 9 ffo entre a ROM e 



a RAM existente nos endere 90 s S18E, $18F e S190. Na 
realidade, o primeiro passo que a rotina de erro em $AC46 
executa ao ser chamada e um JSR S 18E - algo como GOSUB 
$18E. Nesta pos^So encontra-se originariamente um codigo 
de RTS, de modo que o processamento siga de volta para a 
ROM. Todavia, se for introduzido at um JUMP para o endere- 
90 de uma rotina, ela sera executada antes de $ AC46. 

Esta liga 9 do, que tecnicamente se chama “gancho” (hook), 
e uma das mais importantes conexbes do sistema operacional 
com o usudrio: de fato, nffo haveria sentido em se dispor de 
rotinas da ROM para programas em linguagem de maquina, 
como as rotinas de acesso ao cassete, por exemplo, se apbs a 
verifica 9 do de um erro de grava 9 ffo ou leitura o controle 
retomasse incondicionalmente ao BASIC com uma mensagem 
?IO ERRO. Este desvio permite a cria 9 ffo de rotinas de erro 
particulars, capazes de proceder a uma manipula 9 ffo diferen- 
ciada das situa 9 bes passiveis de serem caracterizadas como 
erros. 

Podemos, assim, mandar o computador apontar a posi 9 ao 
do erro na linha e substituir aquelas mensagens cripticas de 
duas letras por mensagens de erro completas. £ isto o que faz 
o programa apresentado neste artigo. 

UTILIZAgAO DO PROGRAMA 

Grave primeiramente o programa da listagem anexa, apbs 
digits -lo com aten 95 o. Voc£ pode modificar as describes das 
mensagens de erro & vontade, mas lembre-se de procurar nab 
exceder, por questSo de estetica, o limite de 31 digitos por 
frase. De RUN e grave a versffo final do programa, que devera 
ser carregada e executada com o comando CLEAR 1000: 
CLOADM:EXEC. O micro deverd responder apenas OK. Se 
isto n3b acontecer, reveja a listagem anexa e procure por erros 
de digita 9 ffo. 






C0L00UE 0 SEU PROORRMR 

i 




1 



era 












RETURN 



T 



, t r 



0 HTS-1U-M RESOLUE. 

MTS-IV-M e um Micro Multiusuario, admite ate 6 terminals de video teclado 
com capacidade de executar multiplas tarefas. Digite. 

Rio de Janeiro - Av. Calogeras. 6-B - Sobrelojas 

B Tels 240-4934 220-9943 - Caslelo TWX (021) 30354 

CEP: 20030 

COMPUTADORES S* 3 pauto - Rua mhanbu. 1271 - Tel.: 240-5899 

Moema TWX (011) 21299 
CEP 04520 



\ 
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MENSAGEM DE ERRO NO COLOR 



Com o programa na mem6ria, experimente digitar uma li- 
nha igual a esta: 

10 FOR J-l TO 100; PRIST J:SEXT 

Em seguida, de RUN. A tela deverd mostrar o seguinte: 

10 FOR J-l TO 100 ■; PRIST J : SEXT 
>ERRO DE S 1ST AXE 

A posi^So prdxima ao erro serf assinalada por um carater 
grafico em vermelho (CHR$ 239). Se voce* quiser usar outro 
cardter como indicador, substitua o EF na linha 100 pelo equi- 
valente em hexadecimal ao codigo do cardter desejado. Para 
obter um ponto de exclama^ffo, por exemplo, troque EF por 
21 . 

0 algoritmo do programa e simples e consiste, basicamente, 
em listar a linha corrente arf a posi^do indicada por $A6-$ A7 ; 
imprimir o cardter grafico; listar o restante da linha; e imprimir 
a mensagem por extenso. Se o erro for verificado num coman- 
do direto, apenas a mensagem de erro serd exibida. Uma rotina 
op 9 do: ao invds de limpar a tela e listar a linha do erro, acione 
a rotina de EDIT, colocando automaticamente tal linha em 
modo de edi$So. Esta prdtica, no entanto, tende a enfrentar 
alguns contratempos, especialmente em programas mais lon- 
gos. Considere o exemplo a seguir: 

10 A-257 : B- 191 

20 PMODE 3.1: COLOR 2 . 3 : PCLS : SCREES 1 
30 PSET (A.B): SOUSD A.B 
40 GOTO 40 

Observe que, embora seja acusado somente na linha 30, o 
erro na verdade foi provocado bem antes, pela instrufffo 
A =257 na linha 10 (este parametro 6 considerado valido por 
PSET, mas ndo por SOUND). 

Este exemplo serve ainda para ilustrar uma limitasao com- 
preensivel da mdquina: ela ndo d capaz de saber exatamente 
onde estd um erro, apenas informa a situa^do em que ele se 



Listagem 



3 *• Atsinala posicao do erro a 

4 '■ e loprime -ensagea por ■ 

5 '• oxtenso • 

6 ’• * 

7 •• Claudio Coata * MS 02/04 • 



10 CL EAR 200.256* PEEK (116) -430sl- 

25i»REE/m6)-42V!F-l*ll8 

20 CLS33F0RE-I TO F«REA0At«P0KEE 

,VAL(“6H".A») 1NEXT 

30 FORB OT0233REAOH»SL-LEN(M»>IP 

OKEE.L«KORT-ltOL!C*ASClMIOi(M».T 

t l)> 

10 POKEE*T.CsNEXT«E*E»L*UNEXT:S 
01IN010Q.3 = CLS 

31) PR I(ITill92. "PREPARE 0 GRAOADOR 
E IECLE ENTER" i IF INKEYi ““THENS 

0 

60 CSAVEM-ERRH&G", l.E.I 
70 • 

BO DATA 86.7E,87,01.8E.30.BD.O0. 
OB,BF,01,BF.CE,00,CB.34.')0.7E,AE 
. 34. OF, 6F, 54, 34. 04, Cl ,03,26.04.9 

E, 2B.?F,A6,0C,68,81 ,FF .27 . 2C . BO, 
AO, 03. 34. 10,BD,A9.28.BD,UD,CFi 

90 * 

100 DATA BD.BV.A^. 33. 10, 00.D4.0E 
.A6,A6,C4,34.42,6F,C4.8D.2B.86.E 

F. BO. BV. 81. 33. 12. A7. 84. 27. 02. 80. 



lE.^O.RV .58, 35,02, OF, 30 ,80,00, ID 

.3A.E6, 60. 4A .2A.F A, BO, B9 , 5C 
1 10 ’ 

120 DATA B6.3E.B0.BV.B1 .BD.80.B6 
.7E.AC,73.BD,B7.C7,8E,02,0D,7E,8 
5,84 
130 * 

140 DATA NEXT SEM FOR. ERRO DE S 
1NTAXE, RETURN SEM GOSUB . DADOS 
XNSUF1CIENTES. CHAMADA I LEGAL DE 
FUNCAO 
150 * 

160 DATA SOURECARGA NUMERICA, ME 
MORIA INSUFICIENTE, LINHA INEXIS 
TENTE, INDICE FORA DA FAIXA, MAT 
RIZ REDIMENSIONADA 
170 ’ 

1HO DATA J I VIS AO POB ZERO. INSTR 
UCAO DIRETA ILEGAL , ERRO DE OIGI 
TACAO, ESPACO PARA STRING INSUFI 
CIENTE . STRING MUITO LONOA 
190 ' 

200 DATA STRING MUITO COMPLEXA, 
IMPOSSIVEL CONTINUAR, DADO IRREO 
ULAR NO AROUIVO, ARQUIVO JA ABER 
TO, DISPOSXTIUO ERRADO 
210 ’ 

220 DATA ERRO OE GRAVACAO/LEITUR 
A. M000 OE AHUU1V0 ERRADO, AROUI 
VO NAO ABERTO, DAOO APOS FIM DO 
ARQUIVO. XNbTR JCAO DIRETA EM ARQ 
VIVO , FUNCAO INDEFINIDA 



faz sentir. O programa, da mesma forma, apenas avisa onde 
um erro foi observado; cabe ao humano usuario, mais uma vez, 
tomar as medidas necessarias. 

Af pode ndo haver outro jeito a ndo ser tentar outra vez e 
esperar que o micro volte daquela sub-rotina que nao existe. 
A sorte e' que, ao contrfrio de nos, ele nao se cansa, e no mais 
das vezes, nao parece ficar muito chateado com isso. _ 



Cl Audio Costa A Desenhista free lancer e tem como hobby a programa- 
;ao de microcomputadores. 



Quern tem tradicao 
em software, tem tudo 






1c ont*» u0 * OE 



r.iS 3 r.zS 3 




A NASAJON olerece assistencia 
tbcnica total, garantia permanente e 
mantem a sua disppsigdo 
programadores e analistas para 
desenvolver sistemas especificos sob 
encamenda. Conte com a NASAJON 
SISTEMAS 



Faz a Folha de Pagamento de sua 
empresa. emitindo relatOnos como 
Guia de IAPAS, Guia de FGTS. Relagao 
de Empregados. Relagao para I.R.. 
Relagao para Banco. Intorme de 
Rendimentos. Acumulados Anuais. 
RAIS e Recibo de Pagamento. A folha 
pode ser semanal ou mensal As 
tabelas sao modlllcadas pelo prOprio 
uaulrio. 

Permite tambbm, adiantamentos de 
sal^rio. reajuste salarial. alteragbes de 
acumulados e outras tungbes que 
agilizem o processamento da Folha de 
Pagamento da empresa. 



A Contabilidade de um mbs em apenas 
2 horas! Este Sistema permite o 
cadastramento de histbricos 
padronizados e de piano de contas 
com atb 5 niveis. 

Emite Oiario Razdo. Balancele. 
Balango. Demonstragao de 
Resultados. Demonstragao de Lucros 
e Prejuizos acumulados. Listagem por 
centro de custo e extrato de contas. 
entre outras fungbes 



Controla o estoque de itens com 
Especilicagdo. Estoque Mimmo. 
Unidade. Fornecedor. Localizagao e 
outras informagbes relacionadas no 
item como Custo Mbdio. Entradas e 
Saidas no periodo. etc. 

Fornece Listagens Geral e Parcial dos 
produtos. Listagem Fisico-Financeira. 
Listagem dos produtos abaixo do 
estoque minimo. Lista de Pregos e 
Etiquetas. entre outras. 

Admite tambbm. Reajuste de Pregos. 
Alteragbo de Dados e Exciusbo de 
Produtos 



Compjliveis com as linhas TR5-80 e Apple Tamb6m dispomveis para I8M-PC Procure-nos para maiores inlormacfles 
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(Oil) 2237388 



• Placa de CP/M Cabos de ligapao micro/impressora 
p/SP-16 com 64 kbytes. 

__ . * IBM e marca registrada da Interna- 

Transforma restante da me- tional Business Machine 

mdria em RAM DISK . 



PROGRAMAS - SP1B 
COMUNICACAO E CP500 CP/M 




Placa rede de comunicacao NCT- 
7301, p/interligar v^rios SP-16. 

Placa emuladora de terminal IBM 
3278/3279 NCT-7 101 PCOX. 




SP16 
PROLOG ICA I 



COMPATIVEL COM 
IBM PC/XT 



Placa de comunicacao BSC3 NCT- 
7501 

Placa emuladora de terminal IBM 
3278/3279 NCT-7201 IRMA. 




, v*\ 



VERSAO I (precos sobconsulta) 

2 drives, slims, FD/DD, 320 kbytes 

VERSAO II 

1 drive FD/DD, 320 kbytes memoria 
RAM e Winchester 5 Mbytes. 

VERSAO III 

1 drive FD/DD, 320 kbytes memdria 
RAM e Winchester de 10 Mbytes. 

VERSAO IV 

1 drive FD/DD, 320 kbytes memoria 
RAM e Winchester de 15 Mbytes. 



EXPANSAO DE 
MEMORIA 



Placa expans5o de 320 kbytes, ex- 
pandindo ate 640 kbytes de memo- 
ria RAM p/SP16 . 



- Placa BACKUP disco rigido p/video 
cassete NCT-6201 



ASSISTENCIA 

tEcnica 



Direto: (Oil) 220-5794 

Consertos e contrato de manutenpao. 



MICROS 



CP500 022D-M80, 1 drive FD/DD, 
DOS-500, CP/M 80 colunas. 

CP500 023D-M80, 2 drives FD/DD, 
DOS-500, CP/M 80 colunas. 

CP400 color II 64 kbytes. KSV 
CP200S, 16 kbytes. (precos sob consulta) 



INTERFACES E 
PERIFERICOS 



Software video texto p/CP 500 



Controle de estoque 
Contabilidade 
Folha de pagamento 
Contas a pagar e receber 
Cadastro de clientes 
Mala direta 

DATAFLEX mono e multiusuario 
8 e 16 bits 

CONSULTE OUTROS SOFTWARES. 



SUPRIMENTOS 



Diskettes 5 1/4" caixa com 10 unida- 

des FS/DD 

FD/DD 

Formulario conti'nuo 1 via: 

80 colunas (milh.) 

132 colunas (milh.) 

Fitas p/impressora: 

P500 

P720 

P740 

Mesa p/computadores 
Estabilizadores de tensao: 

0,8 kVA 
1.5 kVA 



IMPRESSORAS 



• P500S paralela ou serial 150 CPS, 80 
colunas, caracteres normais, compri- 
midos e expandidos, grafi co co mpati'- 
vel com MX-80 . 




• P720 paralela e serial 200 CPS 132 
colunas e compativel com MX-100. 

•P740 paralela e serial 400 CPS, 132 
colunas . (precos sob consulta) 

OBS.: Impressoras P500 e P720 densi- 
dade grafica compatfvel com graficos 
LOTUS 1, 2, 3, Picture Graphic, etc. 



FILCRES ELETRONICA ATACADISTA LTDA. 

Rua Aurora, 165/179 — Sao Paulo — SP — Estacionamento proprio 
Tels.: Vendas (PBX) 223-7388 - 222-0016 - 223-7234 

TELEX(011)31298 



Modem EMBRACOM 
CP532C (RS232/CP500) 

Serial 300 
Joystick CP400 

Monitor colorido p/SPl6 . sob consulta 
Placa CP/M p/CP500 M.80 com 128 
kbytes RAM 



Revendedores autorizados 



BAURU-SP kyj 

Microlbgica TeU0l42l23-6142 

BELO HORIZONTE - MG 

ComputromxTel (031)225-3305 
Digilogica Tel. (031 1223-4966 

CAMPINAS - SP 
Sod En Byte Tel. (0192)52-6369 
CAMPO GRANOE - MS 
New Line Tel (0671382-0682 
CATANDUVA - SP 
Catanduva 

Maquinas Tel <0175)22-6167 
CURITIBA - PR 
CSR Tel (041)232-1750 



FERNANDOPOLIS - SP 

Compshow Tel (0174)42 1697 

FORTALEZA - CE 

Siscomp Tel (085)244-4911 

goiAnia-go 

Sod New Tel (062)224-9322 

GOVERNADOR VALADARES 
MG 

Computron Tel (0332121-8412 

NATAL - RN 

Max.micros Tel (084)222-8918 
POQOS DE CALDAS - MG 
Micro Pocos Tel (035)721 1883 



PORTO ALEGRE - RS 

Hercos Tel. (0512)25-4923 

RECIFE - PE 

Croma Tel 10811325-3493 

RIO DE JANEIRO - RJ 

Sinclair Place Tel (021)349 2699 

Suteco Tei (021)220-9613 

SAO BERNARDO DO CAMPO 
SP 

Micro's Tel <01 1)448 6234/ 
441-2122 

SAO PAULO - SP 

Benny Microcompu- 



tadores Tel. (01 1)570- 1555 
Borne Microcompu- 
tadores Tel (Oil >93-1 102 
Citty Micros T els. (Oil) 

831-0944/832-9458 
Iguatermcro Tel (011)815-9701 
Garra Tel (0111884-3042 
NC Micro Tel (0111533-4388 
Opus Informa- 
tics Tel (011)273-5757 
Provac Tel. (01 1)274-5861 
Tropical Tel (0111543-9859 
S.sec Tel. (01 1)283-0853 

Cistec Tel. (01 1)288-5413 



SOS Tel. (01 11826-0456 

SAO VICENTE - SP 
Aita-Reso- 

lucao Tel 10132)67-2496 

TAUBAT6 - SP 

Ensicom Tel. (01 22)33-2944 

UMUARAMA - PR 

CBM Tel 10446)23-2233 

VITORIA - ES 

Casa dos Tele- 

fones Tel (027)222-5011 
Composoft Tel (027)222-5758 
WR Compu- 

tadores Tel. (027)2253144 












Nesta ultima ligao do curso, voce vai ver como funcionam os 
compiladores. Aprenda, ainda, como se pode construir urn. 



Curso de FORTH (VII) 

Antonio Costa- — 



U ma das caracteristicas mais interessantes do FORTH e 
a extensibilidade, ou seja, a possibilidade do progra- 
mador acrescentar recursos ao compilador. Para fazer 
isto, entretanto, e preciso entender como urn compi- 
lador funciona. 

Basicamente, compilador e um aplicativo que traduz progra- 
mas de uma linguagem para outra. A linguagem na qual os pro- 
gramas originais s5o escritos e chamada linguagem fonte, e a 
linguagem para a qual eles sao traduzidos e denominada lingua- 
gem objeto. 

A linguagem fonte quase sempre tern caracteristicas desti- 
nadas a melhorar o desempenho do programador. Entre estas 
caracteristicas estao a facilidade de aprendizado e a capacidade 
de detectar erros. A linguagem objeto, por sua vez, e especifi- 
cada de modo a ser facilmente executada pelo computador. 

Do que foi dito, conclui-se que o computador nao executa 
programas em FORTH tal quaJ voce o concebe. 0 que a mi- 
quina executa e a tradu<;2o dos referidos programas para a lin- 
guagem objeto. 

UMA LINGUAGEM OBJETO 

Vamos descrever brevemente uma linguagem objeto propos- 
ta por Lollinger e usada nos FORTHs publicados em MICRO 
SISTEMAS. Os principal comandos dela sao: 

’ELSE - Salto incondicional para a frente. Se o computador 
encontra um ’ELSE, ele salta um determinado numero de ins- 
truces. 0 numero de bytes do salto deve ser indicado pelo 
conteudo da celula que segue o ’ELSE. 

’WHILE - Salto incondicional para tras. 0 ’WHILE e seme- 
Ihante ao ’ELSE, mas provoca o salto para tras e n5o para 
frente. Ver figura I . 

’IF - Salto condicional para frente. 0 ’IF causa um salto para 
frente. mas so quando houver 0 no topo da pilha. Como no ca- 
so do ’ELSE e do WHILE, a amplitude do salto 6 indicada 
pelo conteudo da celula que segue o *1F. 

V END - Salto condicional para tras. 0 ’END controla, da 
mesma forma que o ’IF, um salto quando encontra 0 no topo 
da pilha O salto de ’END, contudo, e para tras. Observe a Fi- 
gura 1. 



’DO - Esta instruifSo transfere dos inteiros da pilha para o re- 
torno. Estes inteiros serifo os contadores de um la^o repetitivo. 
’LOOP - Incrementa o topo do retomo e, se ele n§o se tornar 
igual ou maior do que o vice-topo, provoca um salto para tras. 
0 comprimento do salto e indicado pelo conteudo da celula 
que segue o ’LOOP. 

( - Esta instruCo imprime a cadeia de Caracteres que a segue. 
O comprimento da cadeia deve preceder os codigos dos carac- 
teres. 





Figura 2 



COMO CONSTRUIR UM COMPILADOR 

Vamos fazer agora uma pequena brincadeira, a saber, in- 
ventar uma linguagem com palavras-chaves em portugues. Isto 
serd fdcil: basta acrescentarmos ao compilador FORTH as pala- 
vras e as estruturas de controle de nossa linguagenzinha. 

A primeira estrutura que definiremos e a VAI... VEM. Esta 
estrutura 6 equivalente ao DO... LOOP do FORTH normal. 
Antes de defini-la, por£m, seria bom que voce teclasse as defi- 
ni$6es dadas na listagem 1. Aqui esta a defini$£o de VAI... 
VEM: 

: VAI COMPILE ’DO HERE; IMMEDIATE 

: VEM COMPILE ’LOOP HERE - C, ; IMMEDIATE 
Vamos ver como ela funciona. IMMEDIATE acrescenta ao 
compilador a ultima palavra que voce digitou. ConclusSo: tan- 
to VAI quando VEM foram incluidas no corpo do FORTH. 
Para perceber as conseqiiencias disto, siga passo a passo o pro- 



cesso de compila^io da palavra que se segue. 

: DIGITOS 10 0 VAI I .VEM; 

De comedo, o numero 10 e compilado, isto e, transformado 
em binario e colocado no fim do dicionario. Para c^ue o com- 
putador nSo o confunda com instru^Oes, a palavra k # e colo- 
cada antes dele. A mesma coisa acontece com o 0. conforme 
mostrado na figura 2. Quando DIGITOS for executada, a op- 
<;5o de ‘ # sera empurrar o numero que a segue na pilha. 

0 passo seguinte do compilador e executar VAI. Isto fara 
com que ’DO seja compilado. Ademais, o HERE colocarS na 
pilha o endere^o da celula que segue o ’DO. Recorde-se que 
HERE fomece o endere?o do fim do dicionario e que a ultima 
coisa inserida no dicionario foi ’DO. 

Neste ponto, as palavras entre VAI e VEM sSo compiladas. 
Chega, enfim, o momento da atua^ao de VEM. A palavra 
’LOOP e posicionada como estd esquematizado na figura 2. 
HERE joga na pilha o endere^o que segue ’LOOP. Subtraindo- 
se deste endereijo aquele que foi empilhado por VAI, obtem-se 
a distancia entre ’DO e ’LOOP. Tal distancia^ guardada logo 
apds o ’LOOP. O resultado final e que a palavra DIGITOS 
com VAI. ..VEM funciona como se houvesse sido definido as- 

am : DIGITOS 10 0 DO I. LOOP; 

Na listagem 2, voce encontrara a definite de mais tres es- 
truturas: 

REPITA...ATe - Esta estrutura e equivalente ao BEGIN... 
UNTIL. 

REPITA...ENQUANTO...DENOVO - Funciona de forma 
identica ao BEGIN.. .WHILE... REPEAT. 

SE-FOR...SE-NaO . .DEPOIS — Estas palavras sdo analogas ao 
IF... ELSE... THEN. 

Estude as estruturas acima e, com uma analise semelhante a 
que fizemos com VAI... VEM, procure entender como elas fun- t> 
cionam. 



TECNOLOGIA EM INFORMATICA * 




FORMAMOS PROFISSIONAIS 
ATUALIZADOS COM AS 
MELHORES TECNICAS EM: 

ANALISE E PROJETO DE SISTEMAS 
ORG. SISTEMAS & METODOS 
PROGRAMAQAO DE COMPUTADOR 
(COBOL) 

DIGIT AQ AO 

MICROINFORMATICA 

UNGUAGENS: BASIC, MUMPS 
SISTEMAS OPERACIONAIS: 

CP/M, MS-DOS 
PLANILHAS ELETRONICAS: 

LOTUS 1,2,3, MULTIPLAN 
BANCO DE DADOS: 

DBASE II, DBASE III 
PROCESSADOR DE TEXTO: 
WORDSTAR 



LTI3 

INFORM ATICA 

Av. Rio Branco, 173 Sobreloja 
Tel.: 262-9364 



SUPORTE EDUCACiONAL 

Centro de ComputagSo • Central de Digita^do • Biblioteca 

Minicomputador Multiusudno — Laboratdrio de Microcomputadores 
Terminals ligados a equipamento de grande porte 



Estagio 
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Na listagem 3, encontram-se definigOes cuja finalidade £ dar 
nomes da lingua portuguesa 3s palavras do FORTH. Assim £ 
que PAGE passa a ser chamada LIMPA. E quando, durante a 
defin^ao de uma palavra, o FORTH encontrar DESCARTE, 
ele compilard um DROP. Atente, contudo, para o fato de que 
DESCARTE so poderi ser usada em tempo de compi^ao, isto 
£, entre os dois pontos e o ponto e virgula. 

At6 agora nos limitamos a incluir na listagem que estamos 
inventando recursos que j & existem no FORTH. Nada impede, 
por6m, que incluamos estruturas novas. Veja esta por exem- 
plo: 

: UM 1; 

: INCREMENT A 1 + 

: VEZES COMPILE INCREMENTA COMPILE UM 
COMPILE ‘DO HERE; IMMEDIATE 

‘OUTRAVEZ COMPILE 'LOOP HERE - C,; IMMEDIA- 
TE 

Observe a defini^ao que se segue: 

: TESTE 5 VEZES I. OUTRAVEZ; 

Ao acionar TESTE, executaremos I seguido de ponto 5 vezes. 
Por sinal, a palavra COD1 da listagem 3 tamb^m n§o existe no 
FORTH, mas £ muito util. Ela compila o codigo da letra que a 
segue. Por exemplo: 

: TRESLETRAS CODI A . CODI B . CODI C 
A palavra TRESLETRAS imprime o c6digo das letras A, B e 
C. Agora n3o precisaremos mais tentar nos lembrar de codigos 
ASCII! 




Figura 4 



OUTRAS LING U AG ENS OBJETO 

Como era de se esperar, nao existe s5 uma linguagem objeto 
para todas as versdes do FORTH. Os chamados compiladores 
de c 6 digo nativo, por exemplo, usam como linguagem objeto a 
prbpria linguagem da maquina onde estSo instalados. Este e o 
caso do GRAFORTH e do HS FORTH. £ por isso que o HS 
FORTH £ t§o rdpido! 

0 melhor modo de descobrir o funcionamento da linguagem 
objeto de seu FORTH £ examinando as definiijOes de palavras 
reservadas como DO... LOOP, BEGIN... UNTIL e IF... EL- 
SE... THEN. A defini<;3o destas palavras £ sempre fomecida 
com os compiladores, pois os vendedores de software sabem 
muito bem que todo programador FORTH £ um curioso e 
quer saber como a linguagem trabalha. No caso do MMS-FOR- 
TH, por exemplo, a fonte de todas as palavras reservadas est3 
no disco de distribui^ao. Foi 1 a que descobri que o BEGIN... 
UNTIL do MMS FORTH £ definido assim: 

: BEGIN HERE ; IMMEDIATE 
: UNTIL COMPILE [3 MMS ,] , ; IMMEDIATE 
Virias coisas podem ser deduzidas facilmente desta defin^ao. 

Em primeiro lugar, [ 3 MMS, ^ deve ter o efeito de compilar 
um salto condicional e, portanto, £ equivalente ao ‘END. No- 
ta-se, entretanto, que o endereso deixajio por BEGIN £ pos- 
to na frente da palavra compilada por [3 MMS, J . Isto indi- 
ca que o salto deve ser absoluto, ou seja, deve ir para um en- 
dere^o especificado em vez de apenas cobrir um determinado 
numero de bytes. Com estas informa^es, j3 podemos definir 
REPITA... AT 6 em MMS FORTH: 

: REPITA HERE ; IMMEDIATE 
: AT 6 COMPILE [3 MMS ,], ; IMMEDIATE 
Em grande numero de versoes do FORTH padr3o usa-se a 
seguinte linguagem objeto: 

(LOOP) - Equivale a 'LOOP 
(DO) - Equivale a # DO 

BRANCH - Faz tanto o papel do ‘ELSE quanto o do 
‘WHILE. 

OBRANCH - Opera como ‘IF e como ‘END. 

0 FORTH do Macintosh £ padr3o e usa a linguagem objeto 
que acabamos de descrever. Cuidado, por^m. As c^lulas do 
Macintosh s3o duas vezes maiores que as do TRS-80 e do Sin- 
clair, e, por isso, devemos substituir j C,| e | Cl [ por pala- 
vras aue manipulem c^lulas duplas. Estas palavras s3o: j W, | e 
| W! f. Isto feito, as defini^Oes da listagem 2 ficam assim: 

1 : VAI COMPILE (DO) HERE ; IMMEDIATE 

: VEM COMPILE (LOOP) HERE - W, ; IMMEDIATE 
: REPITA HERE ; IMMEDIATE 
: AT 6 COMPILE OBRANCH HERE - W, ; IMMEDIATE 
: SE-FOR COMPILE OBRANCH HERE 0 W, ; IMMEDIATE 
: SE-N30 COMPILE BRANCH HERE 0 W, 

SWAP HERE OVER - SWAP W I ; IMMEDIATE 
: DEPOIS HERE OVER - SWAP W! ; IMMEDIATE 

O ROBO D ANDANTE 

Vamos fazer um programa interessante. Com ele, voce 
pode tocar piano pelo teclado de seu computador. Enquanto 
voce toca, um pequeno robo dan£a no video, acompanhando o 
ritmo da musica. 

Para comefar, deixarei para voce a f3cil tarefa de escrever 
programas que desenham o robo em diversas posi^Oes de dan- 
9 a. Os programas ROBOl, R0B02 e R0B03, por exemplo, 
desenham os robos mostrados na figura 3. £ claro que, em ma- 
quina sem alta resolusao, n3o se consegue o nivel de detalha- 
mento da figura 3. 

Para definir as palavras que desenham os robos, usa-se o md- 
todo explicado na li?ao IV, MS n9 52, e exemplificado com a 
minhoca egipcia. Aqui, porem, surge um fator complicante. A 
minhoca pode ser feita em um tinica linha de caracteres gr3fi- 
cos enquanto o robo precisa de varias linhas. A solu^ao mais # 
direta paia o problema, embora n3o a mais elegante, £ definir 
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APPLE 

SOFT? 

Venha para o clube 
diferente de Apple 

“MAGIC 

WORLD 

CLUB” 

Escreva para nos e 
tenha uma 
apple surpresa. 

Caixa Postal 62521. 
CEP 01214 
Tel.: (011)664316 
Sao Paulo-SP 



»mns Santas Sa 

ru I ms 

ICOMPUCLUB 



Um CLUBE MUITO ESPECIAL 
Para usuarios dos equipamentoa 
TK-85, TK90X, CP-400, CP-500 
e compativeis 

/ '7*1 



6 . 



, NOVA FASt 1986 

VOCE RECEBE. INTEIRAMENTE 
°* GRATIS: 

Um curso complelo de programacio de logos 

— Edl(6et Men tail do Compudub 
Newt, com programas de logos, 
aplicativos e dicas espedals para o 
seu equipamento. 

— A cada 45 dias, programas 

amplamente documemados, com 
seus manuals de Instrucio. 
gravados em fita HOT LINE, a 
melhor opfio para o seu ace tv o de 

J 

/ •»" Quatro chanc« 
/^'‘^Wnhar 

Assodando-se agora. »oc6 alnda ' 

recebe os 5 bolet.ns ji edltados pelo 
dube. indulndo o espedal 
dezembro/85. 

Solldte, ainda hoie. informacbes 
detalhadas acerca de como partldpar 
do COMPUCLUB. Nio se esqueca 
por 6m, de Indicar o Upo de micro que 
voc6 possui. 

COMPUCLUB — Caixa Postal 4« <3«570) VI?osa-MC 



PROGRAMAS 

EMPRESARIAIS 

MAQUINAS 

PC/XT-APPLE 

BUREAU 

ATENDIMENTO 

NACIONAL 



( 021 ) 

240-2234 



i o BEL-BAZAR 
ELETRONICO 



onde voce AINDA 
encontra pre^o 
e qualidade 
de ANTIGAMENTE! 



PARA PROBLEMAS COM MATERIAL DE 

DESENHO - PINTURA - ENGENHARIA 
- PAPELARIA - ESCRITORIO MAQUINAS PI 
ESCRITORIO E SUPRIMENTOS EM GERAL 



AV. ALMIRANTE BARROSO. 81 - Lj. "C" 
Tels.: 262-9229 - 262-9088 - 240-8410 
CASTELO - RIO DE JANEIRO 



274-8845 

d 



Fita Impressora 
FormuWirio Continuo 1. 2 ou 3 
Arquivo para Diskettes 
Pastas para Listagens 
Etiquetas Adesivas 
Diskettes 5.1/4" ou 8" 
Reebobinagem em Nylon 
e Polietileno 



• Pronta Entrega 

• Qualquer Quantidade 

• Garantia de Qualidade 



Aiprime_nto 

' MAIEniAlS PARA COMPUT ADORES 

Rua Vise, de Piraja. 550/220 
274-8845 — Ipanema — Rio 



W 

^ CURSOS 

0 <# DE . 

COMPUTACAO 

— Cobol 

— Dbase II 

— Basic - Basic Disco 

— Basic Total 

— Visicalc 

— Redator de Texto 

— Computagao p / crianpas 



Rua Sao Sebastiao, 360 -523-8492 
Alto da Boa Vista 
Prbximo a EstBtua Borba Gato 



llliM SI IIIV 

COMPUT AQAO E INFORMATION LTDA 



SOFT MSX 

APLICATIVOS nn 
JOGOS 

EDUCATIVOS 

TUD0 EM MICROS 

Cursos — ► Hardware 
Suprimentos — » Soft 

ATENDEMOS TODO 
O BRASIL. 

SOLICITE CATALOGO 

AV. CASTELO BRANCO, 800 
S. 106 — CEP 65075 
F0NE (098) 227-1615 
SAP LUiS — MA 



ASSISTENCIA 

TECNICA 

AUTORIZADA 

• Microcomputadores 

• IBM PC, APPLE, TRS-80 

• Nackmais compativeis 

• Perifbricos 

• Contratos de ManutenqAo 

• Garantia 





ALICE 
DISMAC 
EDISA 
IBM COLOR 
OLIVETTI ET 



— ELGIN 

— FACIT 

— PROL0GICA 

— EPSON 

— QUME 



Av. Aim. Barroso, 91 - Gr. 1.102 
I TeL: (021) 262-1886 



RECONSUPRI 



Recondicionamento 
de Suprimentos 
para Computador Ltda. 
Sao Paulo (Oil) 229-9914 



A ALFAMICRO coioca a sua diaposipao os 
malhores programas do marcado iniarna- 
cional ao manor pre$o 

PROGRAMAS PARA APPLE 

Escolha os seus entre mais de 2 000 tiluios 
que cobrem as mais vanadas apiicapoes a 
CzS 35.00 por disco 

PROGRAMAS PARA CP-600 

Os mais famosos titulos a CzS 45,00 por 
disco. 

POSSUIMOS TAM BEM PROGRAMAS PA- 
RA IBM- PC e S-700 

Escreva ji! E recebe nosso cataiogo. 

AOQUIRA PELO CORREIO PERIFERICOS 
E ASSESSdRIOS PARA APPLE E IBM-PC 
PELOS MELHORES PREQOS 

CONSULTE-NOS. COBRtMOS QUALQUER 
OFERTAI 

ALFAMICRO INFORMATICA 
Cx. Postal, 12.064 — 02096 
F. 011 - 950-8998 - S*o Paulo - SP 
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NOSSAS PUBLICACCES ESTAO A VENDA TAMBEM NAS BOAS LIVRARIAS 



ADD AIR, P t , Indo al4m com o 
CP -400 Color, Editele. 

0 livro e um suplemento ao 
manual do CP-400 Color e visa 
permitir um uso mais eficiente 
do equipamento atravfts da avalia- 
pao dos seus recursos avan^ados 
de programapao, video, disco e fi- 
ta. 

Para cada recurso avaliado 6 
apresentado um programa, que 
pode ser executado separadamen- 
te ou agrupado, possibilitando 
assim novas aplicapdes. 



BANK, B., BASIC Manual de 
Converges, Ao Livro Tftcnico 
Editora. 

Este ft um guia capaz de aju- 
da-lo na conversao de programas 
entre os micros da linha Apple, 
TRS-80 e Pet. 0 livro ft dividido 
em tres capftulos destinados a e- 
quipamentos especfficos. Em cada 
um deles sao apresentados o» co- 
mandos do equipamento em pau- 
ta, os comandos do equipamento 
para o qual se deseja fazer a con- 
versao e, ainda, alguns comentft- 
rios sobre eles. Logo a seguir. sao 
abordadas as peculiaridades de ca- 
da linha. 



JAMES, M., Intel igenc/a 
Artificial em BASIC. Editora 
Campus. 

Esta 6 uma obra introdutoria 
a Inteligencia Artificial. Nela sao 
abordados alguns pontos impor- 
tantes sobre o assunto e discuti- 
das as possibilidades de suas apli- 
cagoes nos dias de hoie. 

As idftias apresentadas no livro 
sao acompanhadas por programas 
que ilustram os mfttodos. Por se- 
rem escritos em linguagem BASIC, 
os programas permitem o enten- 
dimento por um grande numero 
de leitores. 

ENDERECO DAS EDITORAS 

Aleph Editora — Av. Brigadei- 
ro Faria Lima, 1451, conj. 31, 
CEP 01451, tel.: (Oil) 813-4555; 

Editora Campus - Rua Bar So 
de Itapagipe, 55, CEP 20261, 
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8 Como Program «r sou APPLE — Cook. R. e 
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9 Jogos Grftficos para o APPLE — Coletta, P. 
- CzS 118,00 

10 Manual APPLE am BASIC — Kantaris, N. — 
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BASIC 

11 BASIC para AplicapSes Comerciais — Her- 
gert, D. - CzS 79,00 

12 BASIC com Estilo — Nagin, P. e Ledgard, H. 

F. - CzS 69,00 

13 BASIC Bfcsico - Pereira F?, J. C. - (5? Edi- 
C So Revisada e Ampliada) — Cz$ 92,00 

LINGUAGEM DE MAQUINA 

14 Alftm do BASIC - Linguagem ASSEMBLY 
para a Linha SINCLAIR — Santos, N. — 
CzS 86.00 



15 BASIC Rftpido: Alftm do BASIC TRS-80 - 

Gratzer, E. A. e Gratzer, T. G. — CzS 142,00 

16 Manual do Microprocassador 2-80 — Barden 
Jr., W. - CzS 156,00 

17 Prog ram ap So em ASSEMBLER e Linguagem 
de Mftquina (2? Edicao) — Alexander, D. C. 
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SINCLAIR 

18 Desafio: Os Mais Excitantes Jogos em BASIC 

- Botelho, A. J. L. - CzS 125,00 

19 Primeiros Passos com oseu SINCLAIR (TKs) 

- Hughes. C. - Cz$ 70,00 

20 Programas Administrativos em BASIC SIN- 
CLAIR — Karsten, L. - Cz$ 82,00 

TRS-80 

21 30 Programas em BASIC para Computado- 

res Pessoais — Chance, D. — CzS 132,00 

22 1001 Aplicag&es para seu Computador Pas- 

soal - Sawusch, M. - CzS 124,00 



ESTA t APENAS UMA SELEqAO DE NOSSOS TltULOS. PARA MAIORES INFORMAQOES SOLICITE NOSSO CATALOGO. 



Desta forma, ele introduz o 
iniciante ao universo do micro- 
computador atravfts de dois breves 
capftulos: Digitagao e Ediqao e 
Gravagao em Fita. Apos le-los 
atentamente, o usuario ja pode 
partir para a pratica, digitando 
os programas, mesmo sem com- 
preende-los inicialmente. Esses 
programas sao bem simples e cur- 
tos e apresentam comentarios res- 
saltando suas particularidades e 
destacando as tftcnicas emprega- 
das. Dentre eles estao: Two 

liners grftficos; Nautilus; Tank; 
Perspectives; Picasso e Two-liners 
sonoros. 



MIRSHAWKA, V., Grificos no 
TK90X, Editora Nobel. 



URI COMPILE *00 HERE ; IMMEDIATE 

OEM COMPILE -LOOP HERE - C. ; IMMEDIATE 

REPITR HERE ; IMMEDIATE 

AT* COMPILE *E NO HERE - C. ; IMME0IRTE 

SE FOR COMPILE *IF HERE 0 C. ; IMMEDIATE 

SE N80 COMPILE -ELSE HERE 0 C. 

SUIRP HERE OILER - SWAP C! ; IMMEDIATE 
DEP0IS HERE 0UER - SWAP C! ; IMMEDIATE 
f NQURNT0 COMPILE *IE HERE 0 C. ; IMMEDIATE 
DEN0U0 COMPILE ‘WHILE SWAP HERE C. 

HERE OILER - SWAP C! ; IMMEDIATE 



leitores usar os compiladores publicados em MICRO SISTE- 
MAS. Para remediar isto, fome^o abaixo algumas palavras 
do FORTH padrSo e as comparo com as usadas nas li^Oes. 
EXPECT - Espera dois argumentos na pilha. 0 primeiro 6 um 
endere^o e o segundo, um inteiro menor que 256. Le caracte- 
res do teclado e os coloca nas c^lulas que contain no ende- 
re^o. A leitura termina quando fordigitado retomo de carro ou 
quando o numero de caracteres lidos for igual ao inteiro menor 
que 256. EquivaJe a INPUT. 

WORD - Da mesma forma que TOKEN, le uma cadeia de ca- 
racteres ate encontrar um cujo cddigo ASCII esteja no topo da 
pilha. Diferentemente de TOKEN, contudo, deixa na pilha o 
endere 90 onde a cadeia lida foi colocada (geralmente no fim 
do diciondrio). 

EXECUTE - Executa a palavra cujo endere^o estd no topo da 
pilha. EquivaJe a EXECUT. 

FIND - Fomece o endere 90 de execu 9 <fo da palavra que a se- 
gue. Assim, se eu teclar FIND UP, o endere 90 de DUP 6 deixa- 
do na pilha. Este endere 90 pode ser usado por EXECUTE para 
disparar DUP. O apdstrofo dos FORTHs de MICRO SISTE- 
MAS tern comportamento identico ao de FIND. 

CREATE - Equivale ao <BUILDS. 

(LIT) - Colocado na frente dos numeros compilados para avi- 
sar que o computador n§o deve executd-los. Tern o mesmo pa- 
pel que o * # nos FORTHs publicados em MS. 

Jt, 



Antonio Eduardo Costa Pereira 6 formado em Engenharia Eletrdnica 
pela E sco la Polit6cnica da USP. Fez mestrado em CiSncia Especial no 
Inst it u to de Pesquisas Espaciais. em S. J. dos Campos, edoutorado em 
Engenharia E!6trica na Cornell University, de Nova torque. 
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HE H 

; COMPILE IMME0IRI 

CRERIE *00 

( No TRS-80 tecle a linha ahaiito) 

6104 ' *00 ! 

I No Sinclair ZH 81 tecle a linha abaiHo) 
5893 *00 ! 

CRERIE *I00P 

( No IRS 80 tecle a linha abaiHo) 

6176 * *I00P ! 

( No Sinclair Spectrum tecle a linha abaiHo) 
5813 * *L00P ! 



OLIVEIRA, R. DA S., Coleqao 
de Programas para MSX, Aleph 
Editora. 

Dirigido espectficamentea usuft- 
rios que nao conhecem computa- 
C ao, este livro se baseia no princf- 
pio de que, em programaqao, 6 
preciso, antes, usar o computador 
e, s6 depois, estudar teorias. 



O livro apresenta programas 
em BASIC capazes dedemonstrar 
ao leitor as potencialidades grafi- 
cas do TK90X, embora nao de ex- 
plicagSes detalhadas sobre as ins- 
trugSes. 

Os programas sao ao todo 31 
e estao ligados a areas como Ma- 
tematica, Ffsica e Desenho, possi- 
bilitando a obtengao de espirais; 
circuitos eletronicos; visao tridi- 
mensional dos corpos e biorrit- 
mo, entre outros. 



uma palavra para cada linha. As varias linhas s 3 o combinadas 
como mostrado na figura 4, para o caso do TRS-80. Nesta fi- 
gura, PTC e usado para garantir que todas as posi 9 ( 5 es do robo 
sejam impressas sempre no mesmo lugar. Se sua maquina 6 Sin- 
clair (ZX81), e possivel imprimir os caracteres que formam 
uma linha do robo digitando-os diretamente do teclado e colo- 
cando-os entre as aspas da estrutura j . J . 

Associemos agora uma tecla e uma vers 2 o do robo a cada 
nota musical definida na li 9 §o 1 (MS n? 49). A associa 9 §o e 
feita com palavras como as definidas na listagem 4, que voce 
deve estender para incluir todas as notas. Aten 92 o, porem! 
Ao acrescentar uma nova palavra, coloque a anterior entre o 
SE-NaO e o DEPOIS. Por exemplo, eis a defin^ao de TEN- 
TE-SOL: 

: TENTE-SOL DUP CODI E = 

SE-FOR TOQUE SOL MOSTRE ROB03 
SE-N20 TENTE-FA DEPOIS ; 

Veja que a palavra definida antes de TENTE-SOL foi TENTE- 
FA e, por isso, ela aparece entre o SE-NaO e o DEPOIS. A 
id£ia desta cadeia de defini 96 es pode ser entendida notando 
que TENTE-SOL verifica se o codigo no topo da pilha 6 o da 
letra E. Se for, a nota sol i executada e, se n2o for, chama-se 
TENTE-FA para comparar o topo da pilha com o c 6 digo de D. 
Caso TENTE-FA tamb^m falhe, TENTE-MI serd chamada, 
e assim por diante. 

Finalmente estamos prontos para a defm^ao que fecha este 
curso: 

: PIANO 15 EMIT LIMPA REPITA LEIA-LETRA TENTE-SOL 

ATd ; 

15 EMIT apaga o cursor do TRS-80 e n3o precisa ser usado em 
outra mdquina. 

PALAVRAS DO FORTH PADRAO 

Neste curso, tentei manter-me prbximo do FORTH padr 2 o. 
Vdrias vezes, porem, nao o segui na tentativa de permitir aos 



Listagem 3 



DECIMAL 

RQUI HERE ; 

NOURLINHH LH ; 

RI0QUE RLLOT ; 

LIMPR PR6E ; 

LEIR LETRR KEY ; 

LEIR CRDEIR TOKEN ; 

OESCHRTE COMPILE 0R0P ; IMMIDIRTE 
I ROQUE COMPILE SWAP ; IMMEDIATE 
CODI COMPILE *» RSPRCi LEIR CRDEIR 
RQUI I ♦ Ce> , ; IMMEDIATE 



Listagem 4 



: TOQUE OESLARTE SM ; 

0 CONSTANT MOSTRE 
; TENTE-D0H DUP CODI R - 

SE-FOR TOQUE D0H MOSTRE R0B0I 
SE-NaO DESCRRTE I DEPOIS ; 

: TENTE-RE DUP CODI B = 

SE-FOR TOQUE RE MOSTRE ROBO? 
SE-NaO TENTE_D0H DEPOIS ; 

: TENTE Ml DUP CODI C = 

SE-FOR TOQUE Ml MOSTRE R0B03 
SE-NaO TENTE-RE DEPOIS ; 

: TENTE ER OUP CODI 0 =» 

SE FOR TOQUE ER MOSTRE ROBO? 
SE-NaO TENTE-MI OEPOIS ; 



computaqAo e com a campus 



1 LOGO: Introdugoo ao Podar do Ensino atra- 
vis da Programa^ao — Goodyear. P. M. — 
Cz$ 98,00 

2 Linguagens da Programapio para Micros - 

Marshall, G. - CzS 90.00 

3 Pascal para Micros — James, M. — Cz$ 92,00 

4 Tfecnica de Gerenciamento de Arquivos — 
Claybrook, B. G. - CzS 155,00 

5 VISICALC: Guia do Usukrio Brasileiro — 
Alcantara, R. B. e Alcantara, P. M. — 
CzS 86.00 

6 Contabilidade Sistemica em Microcomputa- 
dores - Secomandi, E. R. — CzS 67,00 

7 Como Programar sau PC — Hartnell, T. — 

CzS 61,00 
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LINHA ZX81/F0RTH 



Linha APPLE 



Grafico 

tridimensional 

Este programa faz um grdfico 
que parece saJtar da tela. £ 6 ti- 
mo para ser inserido no final de 
seus programas, dando um toque 
pessoal. 

5 HGR2 : HCOLOR* 3 
10 ROT- 0 

20 FOR G = 1 TO 64: SCALE- G 
30 DRAW 1 AT 140.961 NEXT 
40 POKE 232.0: POKE 233,3 
50 FOR X = 768 TO 790 
60 READ V: POKE X.Y: NEXT 
70 DATA 1,0.4,0,36.172,46.46.62. 
246,228. 22. 39.56, 246. 32. 39. : 
7. 37, 12.54.6,0 
80 GET F1M*: TEXT : HOME 



MArio CAsar Franchi — SP 



Linha TRS-80 



Pontuagao monetaria 

Use esta dica para pontuar valores 
monetdrios em numeros de at£ 16 al- 
ga rismos. 

10 CLEAR lOOO 

20 CLS: INPUT"DIG1TE UM NUMERO" • N# 
30 CS-STR6 ( NR ) : G0SU892 
40 PRINTC* 

50 PR1NTU860, : INPUT "OUTRA CONSUL TA 
S/N"1M« 

60 IFM»-"S" THEN20ELSEEND 
92 IFLEN(C*> ■ =4 THENRE TURNELSEFORX 1 
=LEN(C*)-1T01 STEP- 3: I F X 1 • -3THEN94E 
LSEJ •= " . " *M I D* ( C* . X 1 - 1 . 3) ♦ J • : NE X T 
94 IFX 1 -OTHENX 1 -4ELSEX l -X 1 ♦ 1 
96 C*-M1D*(C*. l,Xl)*J« 

98 j*=-":n#-o:return 



Mervyn da Oliveira — MG 



Linha SINCLAIR 



Abertura de programas 

Rode esta dica no seu Sinclair e 
verd que 6 uma abertura interessante 
para qualquer programa. 

10 .it H| t ""icec 

•a -fT f$* IISTEMJ* 

30 *0C a.o r- - 

*0 PRINT c- 9 a a* 

■o -.e*- - 

eo -oc e to i* *tec -i 
“0 print a- i e ff» 
iO NE<* s 

SO LffT ;t. 6CCE5ENT0 
100 LET I«INT .,31 J, . ;t i 

110 -OP to It 

iso -op e*;i to is tree -i 
iso print a- e.c c » ' a pt e : 

i*o next e 

150 PRINT a- E C CS'R 
160 LET C«C«1 
1-0 NeXT a 
160 PAUSE iOO 
ISO PUN 



GRAFCOD 

Este comando em FORTH lista no video os caracteres grdficos do seu 
ZX81, com seus respectivos eddigos em decimal, hexadecimal ou qualquer 
outra base de numera 9 §o, bastando 

apenas especificd-la antes de dar o page":'' zzziso cos zafacterc* ;= 
comando GRAFCOD: t , PTr 

2 BASE S GRAFCOD. | I ■ x eAit 



Fabio A. Rodrigues Correa — SP 



fa:-e . cociso co 

-FZZZ'l 

Z . - 2 * 0 PTC 
: . . - i emit 

: i • i » it ft; 

I 12 3 ♦ Cue . . 

CP * E Z POP 



In 

dic ra 



Linha 



Envie suas dicas para a Redapao de 
MICRO SISTEMAS na Av. Presidente 
Wilson, 165 - grupo 1210. Centro, Rio de 
Janeiro, RJ. CEP 20030 



COLOR 



Warm Start 

Acrescentando k di- 
ca publicada em MS nb 
45 (PEEKS e POKES 
no COLOR), informo 
que para se conseguir 
um Warm Start prepara- 
do no computador, de- 
ve-se digitar:POKE 1 13, 
85 e em seguida RESET. 



Fernando Monteiro 
Guerrero — MG 



Linha 



MC 1000 



Mensagem de erro 

Quando hd problemas em um 
programa e voce estd num dos mo- 
dos grdficos do MC 1000 fica diff- 
dl ler a mensagem de erro pois ao 
voltar para o modo TEXT, nor- 
malmente 6 executado um HOME 
antes. 

Mas, com esta dica, voce pode- 
rd ver facilmente qual foi a men- 
sagem: 

Primeiramente, vamos provocar 
um erro no modo GR: 

10 U R : u u L-U P — £ 

20 PLOT 0 ., 0 TO 128,0 

Como podemos observar, a li- 
nha 20 passou os limites do modo 
GR e para que o erro ocasionado 
possa ser visto, digite DEBUG. 
Ap 6 s ter visto o erro, volte ao 
BASIC e digite TEXT. 



Linha TRS-80 



POKES no CP 300 

Tenho um CP 300 hd um ano e 
estou enviando algumas dicas sim- 
ples, mas que eu “apanhei” muito 
para descobrir. Por ndo possuir im- 
pressora, os programas de um ami- 
go que a tinha nunca rodavam no 
meu micro. Assim, estas dicas ser- 
vem para ajudar j ovens programa- 
dores para que ndo “apanhem” 
como eu: 

Desvio do Video: desvia para a im- 
pressora toda informa^do que nor- 
malmente aparece na tela: 

POKE 16414,141 : POKE 16415,5 
Desvio da Impressora: (1) - desvio 
automdtico de todas as instru 96 es 
que enviam sinais para a impressora. 
POKE 16422,67 :POKE 16423,0 
( 2 ) — faz com que todas as instru- 
9 &es LPRINT sejam direcionadas 
para o video. 

POKE 16422,88 :POKE 16423,4 
OBS.: N5o use os dois desvios no 
mesmo programa. Execute POKE 
16422,141 : POKE 16423,5 para 
voltar tudo ao normal. 



Paulo Henrique Jurisato — SP 



Kleber Desan — PR 



Nelson Lima Neto — MG 



Linha TRS-COLOR 



Copia de seguranga 



Veja como tirar c 6 pias de progra- 
mas em linguagem de mdquina que 
nao tenham auto-execu 9 do. 

Siga as seguintes instru 9 des: 

1 - Carregue o programa em LM. 

2 - Digite as seguintes instru 95 es: 

? PEEK(487) *256+PEEK(488) 

? PEEK( 126) *256+PEEK( 1 27)- 1 

? PEEK( 1 57) # 256+PEEK( 1 58) 

Deverfo aparecer ties endere 90 s 
-1 ap 6 s cada instru 9 do. 

0 primeiro endere 9 o indica o INf- 
CIO do programa; o segundo indica 
o FIM e o ultimo, o endere 90 de 
EXECUgAO do programa (EXEC). 

Serd util anotar os endere 90 s. 

Para copiar o programa, ap 6 s digi- 



Linha 



ZX SPECTRUM 



Incrivel DRAW II 

Em MS n9 50, vi a dica “O In- 
crivel DRAW” e mesmo pensan 
do que seria tolice eu a rodei. Fi 
quei maravilhado com o poten 
cial do comando. Assim, resolvi 
estudd-lo. Ap 6 s algum tempo 
descobri um efeito bem seme 
lhante, embora mais complexo 



10 OVER 1 PAPER 0 BRIGHT 1 

CLS 

ao POP x »© TO *55 STEP 35 
30 INK PNC *8 
*0 Plot JO 90 
50 CRAu 100.0.PI** 

60 NEXT « 



Carlos Alexandre da Silva — RJ 



Linha ZX81 



Nhoc-Nhoc 

Este simples programa em BASIC 
TK pode, aldm de causar um bom 
efeito de explosdo em jogos, assustar 
um “leigo”, fazendo-o pensar que a 
TV estd estourando. 0 que causa 
tudo isto 6 a linha 30. 0 c 6 digo 126 
(numero) faz com que os prdximos 
5 bytes fiquem invisiveis, encolhendo 
o D-FILE. 

Para causar um efeito ainda me- 
lhor, basta aumentar o volume da TV 
ou ligar um rddio FM em tomo de 90 
MHz, para ouvir um ruido parecido 
com o de um caminhSo ou avido. 

Na linha 20 define-se o intervalo 
de linhas (22 a 7, no caso) onde quer- 



tar cSAVEM seguido do nome do 
programa, deverSo estar os endere 90 S 
separados por virgulas ( , ), da seguin- 
te forma: 

cSAVEM “PROGRAMA”, INf- 
CIO, FIM, EXEC 



1—0 nome do programa deveitf 
ter no miximo oito caracteres; 

2 - Algumas vezes, os endere 9 os 
de inido e fim do programa coinci- 
dem, sendo mais provdvel que ocor- 
ram em programas de 16 Kb. 

Esta dica foi desenvdvida num CP 
400 Color, com 64 Kb de RAM. 



Au gusto Anderson Brown Santos — BA 



LINHA GERAL 



Buble Sort 

Na listagem abaixo, voce ve 
um exemplo de SORT, que or- 
dena os caracteres da STRING 
AS. 

10 _£T R(> O jERT, UIOPRSC'-GMUf l 
2 «C'.’BNM 

-0 GCSuE 100 
30 PRINT - • 

*0 !”0P 

100 -E’ - N.lEN B| 

110 -OP ^«1 to N*1 
HO -OR K.K.l TO N 
130 I» RS'Ri iH|.r THEN GOTO 1 
~0 

1*0 LET lS*AS'F' 

150 LET ■R|.KI 

160 LET A|||>< >LI 
170 NE *T K 
180 NE<T F 
190 PET URN 

Experimente substituir as 
duas linhas abaixo e compare a 
velocidade de execu 99 o. 



120 -OR k in TO -»1 STEP -1 
130 IF AS'K. THEN GOTO 1 

70 



Esta rotina foi listada em um 
SINCLAIR, mas pode ser usada 
em qualquer micro, com modifi- 
ca 90 es minimas. 



Marco Henriqu# Alexandre Costa 
- RJ 



se causar o efeito. Conv^m lembrar 
que os POKES sSo feitos no inido de 
cada linha, devendo-se evitar a im- 
pressao de algo que serf reaproveita- 
do Id. 

Para anular o efeito basta dar um 
CLS, POKEAR um c 6 digo diferen- 
te de 126 no local (um looping) ou 
entSo imprimir com PRINT, como 
no exemplo da listagem abaixo: 



Linha TK 2000 



Reformulando 
o INKEY$ 

Esta dica atua como a fun 9 §o 
INKEYJ. Le o teclado e associa 
a tecla pressionada a uma vari9- 
vel, sem parar o programa como 
acontece com INPUT ou GET. 

A primeira parte deve ser di- 
gitada e executada no inido do 
programa: 

lO HIMEN - 38367 

20 DATA 32,67,240, 141 ,239. 14V. Of, 
30 FOR I - 38368 TO 3.8774: Rfc/il> 

a: poke i. a: next i 

Ji a segunda parte faz a leitu- 
ra do teclado. Pode tambrfm ser 
usada como uma sub-rotina: 

9000 CALI 38368 
90 I O l » PEEK (38787' - 128 
901V IF K • I THEN K - 32 
90 9 1 M6 - CHR* (I ) 



Roberto Keto Pereira - ES 
Cassiano Franco Bernard®* — ES 




Variaveis do sistema 

Aqui v9o algumas dicas que o 
ajudarSo a compreender melhor seu 
compativel com o ZX Spectrum: 

1 ?) Para verificar o n 9 de bytes 
ocupados por um determinado 
programa: PRINT PEEK 23627+ 
256 'PEEK 23628- PEEK 23635- 
256 ‘PEEK 23636 
2?) Para verificar o n? de bytes li- 
vres na RAM: PRINT PEEK 23730 
+256 ‘PEEK 2373 1 -PEEK 23653 
-256 ‘PEEK 23654 
3?) Teste para saber se o micro 
tern 48 Kb: IF PEEK 23733=255 
THEN PRINT “48Kb” 

4?) Para eliminar o espa 90 dos 
grdficos definidos pelo utilizador: 
POKE 23765,255 
POKE 23676,255 
CLEAR 65534 

Hamilton E. L de Souza — PR 



10 -ET .sCEE' 163S6*256 tPEEk • 1 

£0 FQP N** *id*22 TO » ♦'*33 y'E 
P -33 

30 POKE n 126 
4C NEXT N 
50 PRINT AT o 0, 

50 FOP N « 1 TO 22 

70 PRINT ■ 32 CAPACTEPE5 125 

30 NEXT n 
90 GOTO 20 



FSbio Antonio Rodrigues Correa — SP 


























Os microcomputadores da linha MSX possuem um grande repertorio 
de comandos, muitos deles ainda desconhecidos. Desfrute deste potencial, 
valendo-se das principals instrugoes do MSX BASIC. 



Comandos do MSX 

Oscar Julio Burd e Luiz Sergio Y. Moreira 



E ste & o terceiro e ultimo artigo 
sobre o padr5o MSX, e nele abor- 
daremos de maneira geral todos 
os comandos do MSX BASIC. 
Por uma questio de objetividade, di- 
vidimos os comandos em 1 1 grupos se- 



gundo suas fun^des: uso em programa- 
980 ; som; entrada e saida; fluxo; uso ex- 
clusivo em grdficos (este j$ devidamente 
comentado no segundo artigo sobre os 
MSX, publicado em MS n? 54);usoem 
texto; manipulate) de varidveis; mani- 



pula 99 o de mem 6 ria; tratamento de 
interrup 90 es; fu^Ses matemdticas e 
outras. 

Note que o MSX BASIC possui mais 
de 1 80 comandos e fun 95 es, sendo tarn- 
bem a mais poderosa das linguagens 



8 

8 


irtburdpcObs 


ERROR 


ON INTERVAL 


INTERVAL ON/OFF/STOP 


ON KEY GOSUB 


KEY ON/OrF/STOP 


ON SPRITE GOSUB 


SPRITE ON/OrF/STOP 


ON STOP GOSUB 


STOP ON/OFF/ STOP 


ON STRIG GOSUB 


STRIG ON/OFF/STOP 


RESUME 


ON ERROR GOTO 





OUTROS USOS 




BASE 




LET 


DEF USR 




TIME 


ERR/ERL 




USR 


FRE 




VARPTR 


KEY LIST 




VDP 


KEY ON/OFF 
KEY 


<aer ie> " 





USO EH FLUXO DE PROGRAMAS 


FOR-NEXT 


ON GOTO 


GOSUB 


RETURN 


GOTO 


RESUME 


IF THEN ELSE 


ON GOSUB 




USO EXCLUSIVO 


m grApicos 


CIRCLE 


POINT 


CLS 


PRESET 


COLOR 


PSET 


DRAW 


PUT SPRITE 


LINE 


SCREEN 


PAINT 


SPRITES 



CLS 


SCREEN 


COLOR 


SPRITES 


CSRLIN 


SPC 


LOCATE 


TAB 


PRINT 


WIDTH 


PRINT USING 


POS 




PUT SPRITE 




ruacOcs hatwAticas 


ABS 


I NT 


AND 


LOG 


ATN 


NOT 


BINS 


OCTS 


COS 


OR 


DEF FN 


RND 


EQV 


SGN 


EXP 


SIN 


FIX 


SQR 


HEXS 


TAN 


IMP 


XOR 



USO 


Wm ENTRADA B SAlDA ! 


BLOAD 


INPUTS 


NAME 


BSAVE 


INPUT # 


OPEN 


CALL FORMAT 


KILL 


OUT 


CALL SYSTEM 


LFILES 


PAD 


CLOAD 


LINE INPUT 


PDL 


CLOSE 


LINE INPUT# 


PRINT 


COPY 


LIST 


PRINT# 


CSAVE 


LLIST 


PRINT USING 


DSKF 


LOAD 


RUN 


EOF 


LOF 


RSET 


FIELD 


LPOS 


SAVE 


FILES 


LPRINT 


STICK 


GET# 


LSET 


STRIG 


INKEYS 


MAXFILES 


WAIT 


INP 


MERGE 




INPUT 


MOTOR ON/OFF 





Figura 1 



NANIPULACAO OB 




OSO EM PBOGBAMACXO 




AUTO 

CLEAR 

CONT 

DATA 

DEF FN 

DELETE 

DIN 

END 

ERASE 

ERR/ ERL 



LIST 

NEW 

READ 

REM 

RENUM 

RESTORE 

RUN 

STOP 

TROFF 

TRON 



USO BA NABIPULACXO DE VARlAVEIS 



INSTR 

LEFTS 

LEN 

MIDS 

MKDS 

MKIS 

MRS 

RIGHTS 

SPACES 

STRS 

STRINGS 

SWAP 

VAL 
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para micros de 8 bits existente no mun- 
do. A nivel de mercado nacional, o 
MSX BASIC pode ser comparado com 
o BASIC do IBM -PC, pois este e uma 
maquina de 16 bits. 

Na figura 1, voce encontrara os 11 
grupos de fun 95 es e seus respectivos co- 
mandos do MSX BASIC. Por questQes 
de espa 90 , trataremos com alguma pro- 
fundidade aqueles comandos que julga- 
mos importantes em cada grupo. 

Vamos ao assunto. 

USO EM TEXTO 

SCREEN: Serve para selecionar o 
tipo de tela. SCREEN 0 ajusta a tela de 
texto para 40 caracteres por 24 linhas; 
SCREEN 1 ajusta a tela para 32 caracte- 
res por 24 linhas. 

PRINT USING: Usado para imprimir 
series de caracteres ou numeros em for- 
matos especificos. Existem formatos 
para series de caracteres e formatos para 
numeros, que podem ser melhor visuali- 
zados na figura 2 . 

PUT SPRITE: Este comando, que 
foi explicado no artigo Comandos Gra- 
ficos no MSX (MS n9 54), permite o 
uso de sprites em modo texto 1 (SCRE- 
EN 1). 

10 SCREEN 1,0 
20 SPRITE* <8>«CHR* <235) 

30 PR I NT "MORE IRA b BURD" 

40 FORI-OTOIOOtPUtSPRITEO, <1. 

95 > ,9,9: NE X T 
50 END 



0 programa anterior faz o seguinte: 
a linha 10 coloca o micro em modo tex- 
to 1 com sprites de 8 x 8 pontos; a linha 
20 define o sprite numero 8 como sen- 
do uma linha de 8 pontos(CHR$(255)); 
a linha 30 imprime o texto “MOREIRA 
8 ( BURD”; a linha 40 movimenta o- 



sprite na horizontal da posi 92 o 0 ate a 
pos^ao 100; e a linha 50 finaliza o pro- 
grama, permanecendo o micro em modo 
texto, porem, com o sprite fixo na 
tela (experimente pressionar ENTER 
varias vezes e veja o que ocorre com o w 
sprite). ® 



FApA DO SEU COMPUTADOR UM GENIO M 

O MELHOR SOFTWARE EM LIVROS PARA SEU COMPUTADOR I 




2 DOMINANDO O EXPERT Cz$ 102,00 

Denise Santoro - Os primciros passos na programa i;io do 
Expert, micro do padrio MSX 

3 INFORMATICA NA ESCOLA CzS 67,00 

Zuncrkorn c Foluan-Livro didatico is crian^as escrito numa 
linguagem simples e divemda A comunica^io 6 facilitada 
pelo diilogo com o Tekinho, simpitico robd criado especial- 
mente para esta obra. 

4 SUPER BASIC TK Cz$ 102,00 

Grossi c Moldonado - Transforme seu Micro num novo 
Compurador. usando Basic compilivel. Voce pode claborar 
programas cm Basic que rod am, ap6s a compilable, com a 
vclocidade do Assembly 

5 ASSEMBLY 6502 Cz$ 97,00 

Bernhard Wolfgang Schon - Pnmeiros passos para quern 
quer aprender a programar em linguagem de maquina num 
Apple II ou TK 2000. 

Muuos exerefcios resolvidos e excmplos. 

6 TABELA DE MNEMONICOS 

DO 6502 CzS 22,00 

Bernhard Wolfgang Schon - Indispcnsavcl para consulta ao 
sc programar em Assembly 6502 



7 cole^Ao de programas 

PARA MSX CzS 93.00 

Rcnaco da Silva Oliveira et al. • Uma scqUencia de progra- 
mas cxplicados em ordem crescents de dificuldaac para 
aprender a usar os recursos do padrio. 

8 LINGUAGEM BASIC MSX CzS 105,00 

Denise Santoro - Uma cnciclopedia com todos os comandos 
e fun0es do poderosissimo Basic MSX, cxplicados detalha- 
damentc cm ordem alfabltica Obra complcta com virios e 
uteis apcndiccs 

9 GUIA DO PROGRAMADOR 

D.O.S. CzS 99,00 

Roberto Massaru Watanabc - Os segredos dos diskettes do 
Apple desvendados de maneira simples e diditica. 

Como utilizar o DOS 3.}. 

10 GUIA DO PROGRAMADOR 

cp/m as 110,00 

Todos os detalhes do sistema operacional CP/M no Apple, 
inciuindo a listagem disascmblada e comentada 

1 1 EXPLORANDO O TK 90 X CzS 90,00 

M Silveira - Aprcnda todos os principal (truques) que o 
manual nio contou. digitando programas de 6timo nivel: 
As Escadas c o Castclo, Editor de Caracteres, Arquivo, 
Disassembler. Etc. 



Desejo receber os livros correspondentes aos numeros assinalados 




Nome: 

Endere^o: 

Cidade: CEP.: Estado: 



Estou enviando o cheque nominal cruzado n.° 

do Banco n.° CzS 

para ALEPH P.A.P. Ltda. 

'Av. Brig. Faria Lima, 1451 
CEP 01451 -S. Paulo - SP 
Telefone: (Oil) 813.4555 




SOI Kill KEI A^AO COMPI I I A 1)1 fODOS NOSSOS I IVKOS C.KAI I II \MIMI 













COMANDOS DO MSX 



MANIPULA^AO DE MEMOR1A 

VPEEK : Retoma o conteudo do byte 
de uma determinada posi^ao da memo- 
ria de video (VRAM). Cabe lembrar que 
os MSX nacionais possuem 16 Kb de 
memoria exclusiva para video, a qual 
pode ser inclusive utilizada para arma- 
zenar dados. Este comando e semelhan- 
te ao comando PEEK. 

VPOKE: Armazena urn byte num 
dado endere?o da VRAM, sendo similar 
ao comando POKE. 

10 SCREENO 
20 FOR I =0TQ39 
30 VPOKE I, 65 
40 NEXT 
50 END 

0 programa acima preenche a primei- 
ra linha da tela de texto 0 com o carater 
A (codigo ASCII = 65). 

TRATAMENTO DE INTERRUP(^dES 

Este e um das pontos altos do MSX 
BASIC, pois permite inclusive o uso de 
um rel 6 gio interno para interrup 93 o 
por tempo. 

ON INTERVAL GOSUB: Determina 
que a cada intervalo de tempo (especifi- 
cado no comando), o fluxo do programa 
seja desviado para uma sub-rotina 
qualquer. 

10 SCREENO 

20 r=i 

30 ON I NTERVAL==i>OGOSUB 1 000 

40 INTERVALON 

50 PLAY M C":B0T050 

1000 PR I NTT 5 " segundos" 

toio t=t+i:beep 

1020 RETURN 

0 programa anterior Simula um cro- 
noinetro, pois mostra na tela a passa- 
gem do tempo de segundo em segun- 
do. Na linha 30, determinamos que a 
sub-rotina da linha 1000 seja exe cut ada 
a cada segundo (60 pulsos do relogio 
equivalem a um segundo); na linha 
40, ligamos esta modalidade de interrup- 
930 ; e na linha 1010 , incrementamos a 
varidvel T (tempo). 

ON KEY GOSUB: Determina que 
uma sub-rotina seja executada quando 
uma das dez teclas de fun 9 ao forpressio- 
nada. 

10 SCREENO 

20 0UI.EYG0SUB1000, ,2000 
30 KF. Ml) ON : KEY ( 3 ) ON 
40 PRINT". " ; 1GOT040 
1000 CLS: PR I NT "MICRO" 

1010 RETURN 

2000 PRINT: PRINT" SISTEMAS" 
2010 RETURN 

Na linha 20 definimos que ao ser 
pressionada a tecla FI, deve ser execu- 
tada a sub-rotina da linha 1000 e que ao ser 
pressionada a tecla F3 deve ser executa- 
da a sub-rotina da linha 2000. A linha 
30 liga o sistema de interrup 9 ao das te- 



clas FI e F3. Experimente. Ap 6 s o 
inicio da execu 93 o do programa, pressio- 
nar a tecla FI e, em seguida, F3. 

ON SPRITE GOSUB: Determina que 
uma sub-rotina seja executada quando 
ocorrer uma colisao de sprites, ou seja, 
quando um ponto de um sprite tocar 
um ponto aceso de outro sprite. 

10 SCREEN 1,0 

20 SPR I TEt ( 0 ) -CHRt < 255 ) +CHRt ( 
255 ) 

30 Of J5PR I T EGOSUB 1 000 

40 SPR I TEON 

50 FUR I =0T0 1 80 

60 f U rSPRITEO, ( I , I ) , 7, 0 

70 PU1 SPR I TE 1 , ( I , V5) ,9,0 

60 NEXT 

90 GOT 050 

1000 PR I NT "BUM", I 

1O10 RE TURN 

Na linha 20 definimos o sprite 0 
como uma barra; na linha 30 determina- 
mos que a sub-rotina da linha 1000 de- 
ve ser executada sempre que houver 
uma colisio de sprites; na linha 40 
ligamos o sistema de interrup 9 ao por 
colislo de sprites. 

Da linha 50 at 6 a 80 movimentamos 
o sprite 0 em dois pianos distintos, em 
caminhos que se encontram. Na linha 
1000 imprimimos o BUM seguido do va- 
lor de I (coordenada horizontal da co- 
lis3o). 

FUN^OES MATEMATICAS 

OCTJ: Converte um numero deci- 
mal em uma serie de caracteres que re- 
presentam o valor octal deste numero 
(base 8 ). 

10 I NPUT " D I G I TE UM NUMERQ" • N 
20 PRINTOCTt (N) 

30 GOTO 10 

0 programa anterior recebe um nu- 
mero decimal (linha 10 ) e imprime o 
seu equivalente octal (linha 20 ). 

HEX J : Semelhante 3 fun 9 §o anterior, 
retomando, pordm, o seu equivalente 
na representa 9 lo hexadecimal (base 16). 

10 INPUT" DIGITE UM NUMERO" ;N 
20 PRINTHEXt(N) 

30 GOTO 10 

BINS: Similar 3s fungOes anteriores, 
retornando, por^m, o numero na sua 
representa 9 §o bin3ria (base 2). 

10 F OR I =0T0255 
20 PRINT! , BINS ( I ) 

30 NEXT 
40 END 

O programa anterior imprime os rni- 
meros de 0 atd 255 com sua respectiva 
representagSo binaria. 

USO EM PROG RAM AQ AO 

Os MSX trazem todos os comandos 



existentes nos micros mais avanQados, 
tais como AUTO, RENUM, CLEAR 
etc. Falaremos, a seguir, dos comandos 
ERR e ERL que auxiliam na corre 9 ao 
e manipula 9 ao de erros, inclusive do 
proprio usudrio. 

ERR: Retoma o codigo do erro. 

ERL: Retoma o numero da linha 
onde ocorreu o erro. 



10 ONERRORGOTO 1 000 

20 I NPUT " D I G I TE UM NUMERO" ;N 

30 PRINT" 10/" ?Ni "="* 

40 PRINT 10/N 
50 GOTO 20 

1000 PR I NT "COD I GO DE ERRO" 5 ER 
R 

1010 PRINT" NA LINHA"? ERL 
1020 RESUME20 



0 programa anterior imprime o resul- 
tado da divislo de 10 pelo numero que 
voce digitou. Caso ocorra um erro (vo- 
ce digitou 0 ou uma letra), 6 executada 
a sub-rotina da linha 1000 . indicando 
qual o erro e em que linha ele ocorreu. 

USO EM SOM 

A geragSo de som e efeitos sonoros 
6 mais um ponto forte do MSX, veja 
por que: 

PLAY : Este comando permite execu- 
tar miisicas segundo uma macrolingua- 
gem musical. Nest a macrolinguagem 6 
possivel tocar oito oitavas, modificar o 
tempo de execu 95 o de uma musica, uti- 
lizar atd dez formatos de ondas sonoras 
diferentes etc. 

£ importante lembrar que os MSX 
contain com tres canais de som inde- 
pendentes (o que permite a gera 9 lo de 
sons e musicas extremamente comple- 
xas) e que o integrado gerador de som 
pode executar uma tarefa musical in- 
dependentemente da UCP, isto 6 , o 
micro pode tocar uma musica enquanto 
a UCP executa opera 95 es diversas. 

10 PLAY "SI M3000 " 

20 PLAY"CDEFG" , "DEFGA" , "D6EFG 
AB" 

30 GOT 020 



Na linha 10 o canal de som e ajusta- 
do para emitir um formato de onda 
especial; na linha 20 executa-se a musi- 
ca “CDEFG” neste mesmo canal A com 
som de piano, “DEFGA” no canal B 
com som de orgSo e “06EFGAB” no 
canal C com som de orgao na sexta 
oitava. 

SOUND: Usado para manipular os re- 
gistradores do integrado de som, tam- 
bem chamado de PSG (Programmable 
Sound Generator). Estes registradores 
controlam itens como volume, mixagem 
de ruido, formas de ondas sonoras etc. 



10 SOUND4, 23: SOUNDS, 0:S0UND6, 

20 

20 SOUND 7,3: S0UND9 , 2 : SOUND 1 0 , 
16 

30 SOUND 11, 89 : SOUND 12,2: SOUND 
13, 12 

40 PR l NT "MICRO SISTEMAS" : GOTO 
40 

No programa anterior temos um 
exemplo do poder sonoro dos MSX, 
gerando o som de um helicoptero. Na 
linha 40 temos a impressao contfnua da 
mensagem MICRO SISTEMAS enquan- 
to e emitido o som. 

USO EM ENT RAD A E SAIDA 

Neste segmento, incluimos, todos os 
comandos do sistema operacional MSX 
DOS e os comandos do MSX BASIC. 
Trataremos apenas deste ultimo, deixan- 
do os comandos do MSX DOS para um 
pr 6 ximo artigo. 

LINE INPUT: Associa os caracteres 
digitados a uma variavel alfanumerica, 
aceitando o delimitador virgula (,) como 
um cardter qualquer (acabou a velha 
dor-de-cabe 9 a). 

STICK: Retorna um valor numerico 
conforme o estado do controlador de 
jogo (joystick) ou teclas de controle do 
cursor (as teclas que ficam a direita do 
teclado). to m--stick(O) 

20 PRINTM 
30 G0T010 



Na linha 1 0 6 lido o estado das teclas 
de controle do cursor e na 20 e impresso 
o valor deste estado. Experimente 
pressionar duas dessas teclas ao mesmo 
tempo. 

STRIG: Retoma o estado dos botOes 
de disparo do controlador de jogo ou 
da barra de espa 90 . Se um desteselemen- 
tos for pressionado, retorna o valor - 1 , 
em caso contrario, serd retomado o va- 
lor zero. 

10 M=STRIG (0) 

20 PRINTM 
30 GOTO 10 

Na linha 10 e lido o estado da barra 
de espa 90 (ou do botdo de disparo do 
controlador); a linha 20 imprime o 
valor do estado. Experimente pressio- 
nar a barra de espa 90 e confira. 

USO EM FLUXO DE PROG RAM AS 

IF THEN ELSE: Este e o comando 
IF THEN, comum a todo BASIC, rela- 
cionado ainda com o ELSE (sendo), que 
e realizado quando a compara 9 do do 
IF resulta em falso. 

RESUME: Continua a execu 93 o de 
um programa BASIC apos uma rotina 
de erro ter sido executada. Possui tres 
modalidades: RESUME, onde o progra- 
ma continua na instru 92 o que causou o 



erro; RESUME NEXT, onde o progra- 
ma continua na instru 9 §o imediatamen- 
te ap 6 s o erro; e RESUME numero da 
linha, onde o programa continua na li- 
nha de numero indicado. 

USO NA MANIPULACAO DE 
VARIAVEIS 

INSTR: Busca a primeira ocorrencia 
de um ou mais caracteres dentro de ou- 
tra sdrie de caracteres, imprimindo os 
caracteres iniciais desta ocorrencia. 

10 At="0 RATO ROEU" 

20 PR I NT At 

30 INPUT"DIGI TE UMA LETRA OU 

PALAVRA" ; Nt 

40 PR I NT INSTR (At, Nt) 

50 GOTO 10 



Na linha 40 descobre-se o local da 
ocorrencia da serie de caracteres de NS 
na frase 0 RATO ROEU que estd em 
AS. Para experimentar e compreender, 
digite estes exemplos: O, TO, ROEU. 

SWAP: Troca o conteudo de duas 
variaveis entre si. 

10 A=5 
20 B=6 
30 SWAPA, B 
40 PRINTA, B 
50 END 
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COMANDOS DO MSX 



ALBAMAR 
ELETRONICA LTDA. 

o . 



OGITRPE 15 



• DIGITAPE C 5 


— 


CzS 


11,20 


• DIGITAPE C 10 


— 


CzS 


12,80 


• DIGITAPE C 15 


— 


CzS 


13,60 


• DIGITAPE C 20 


— 


CzS 


14,40 


• DIGITAPE C 30 


— 


CzS 


16.80 


• DIGITAPE C 46 


— 


CzS 


17,60 


• DIGITAPE C 60 


— 


CzS 


19.00 


• BASF C 60 




CzS 


22,40 


• SCOTH C 60 


- 


CzS 


20.80 


• FITA DE LIMPEZA 








DE CABEQOTE 


— 


CzS 


14,00 


• FITA VIDEO K-7 T 120 


— 


CzS 170,00 


• MICROFONE MK2 








LESON 


— 


CzS 290.00 


• TWEETER LESON 100W 


— 


CzS 


55,00 


• MODULO Pi K-7 


— 


CzS 


12,00 
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TRONICA LTDA. RUA CONDE DE LEOPOL- 
01 NA. 270-A - SAO CRISTOVAO - RJ - 
CEP 20.930 - TEL: (021) 580-6729. 
ACRESCENTAR 10% DO VALOR DA 
COMPRA PARA DESPESAS DE 
CORREIOS. 



MS E FEITA 
PARA VOCE 
PARTICIPAR 
COM SUA 
OPINIAO 

Escreva-nos dizendo qual 
a sua 8rea de interesse, 
conte-nos tamb6m as 
suas experiences com seu 
micro, o que voc£ quer ver 
publicado em MS, o que 
voc§ acha da sua MS, 
isto iici nos ajudar a 
fazer de MICRO SISTEMAS 
a SUA revista. 

E lembre-se: todo leitor 
que nos escreve concorre 
automaticamente a uma 
assinatura de um ano de 
nossa MICRO SISTEMAS. 
Mande logo sua opiniSo 
para Redap§o de MICRO 
SISTEMAS no Rio de 
Janeiro ou em S3o Paulo. 



Av. Presidente Wilson, 165 
grupo 1210 - Centro - CEP 20030 
Rio de Janeiro - Tel.: (021) 262-6306 

Rua Oliveira Dias, 153 
Jardim Paulista 

S3o Paulo/SP • Tel.: (011) 853-7758 




Manipulando arquivos em cassete 



Nosso propdsito. neste tdpico final. 4 
fazer um breve relaio dos comandos dispo- 
niveis para a manipulando de arquivos em fi- 
ta cassete. Em seguida, daremos um exem- 
plo simples de um programa parademonstrar 
a! guns dos comandos. 

BSA VE E BLOAD: Armazena e le da 
fita um arquivo bindrio. Este arquivo pode 
confer dados de memdria, uma tela graft- 
ca, pro gramas em lingua gem de mdquina 
etc. 

BLOAD "TESTE": Carrega o arquivo 
TESTE na memdria. 

CSA VE E CLOAD: Armazena e le arqui- 
vos BASIC exclusivamente em fita. 

CSA VE "TESTE” 

OPEN E CLOSE: Acessam um dispositi- 
uo como um arquivo de entrada ou saida. 
O dispositivo pode ser: gravador. impresso- 
ra. tela de texto. etc. CLOSE fecha o dispo- 
sitivo. 

OPEN "CAS:" FOR OUTPUT AS # 3, 
abre o gravador cassete como arquivo de 
saida com numero de referenda’s. Para se 
escrever um dado no gravador. usa-se. por 
exemplo. PRINT # 3. "Testando. 

Exemplo: OPEN "CAS:" FOR INPUT 
AS # 2. abre o gravador cassete como arqui- 
vo de entrada com numero de referenda 2. 
Para se ler do gravador. usa-se. por exemplo: 
INPUT # 2 MS 

O programa. a seguir. 4 um exemplo sim- 
ples de uma agenda telefonica de dez 
nomes: 

to uu TO 500 

20 CLS:FORt-OTOV:rRlNTH*- "» 

: INPUfnome- ” SNO* < I > : INPUT”t 
•leTone* *jre«CI):tFTEe<l)<>“ 
F'ORTfc* (!><>*♦ "THENNEXT: RETUR 
NEL3ERE1URN 

30 CCS: PRINT “pros* tone REC e 
PLAY no grav*dor":PRINT'> ENT 
ER no mi cro": BOSU02OO 
40 OPEN'*CAS! “FOROUTPUTAS* J :PR 
INTI, I 

SO CLS! PRINT "gi-avancJo. .. " 

60 FORK-OTOI:PRINT*l,NO*(K) IP 
rinti.te»<k>:next:close: retur 
N 

70 REM 

80 CLS; PRINT ,, po*lc« one a «lta 
e tec 1 * PLAY- :PRINT” tec 1# EN 
TER no nucro“:t>0BUB2OQ 
90 CLS; PRINT” 1 endo dado*...”: 
OPEN-LAS: “FORINPUTAStt 1 ! INPUT* 

1,1 



100 FORK-OTai -i: INPUT*!, NO* 

) , TF. •< K >: NE X T : CLOSE : RE T URN 
HO CLS:FORK-OTO!-I:PRINTNO*« 

»:> ,TE* <K> :NEXT 

120 PRlNT"teele ENTER para co 
ntimiar”: G0SUB200: RETURN 
200 IF1NKEY*< >CHR* 1 13) TMEN20O 
EL3ERE TURN 

300 CLS: PR 1 NT ” Mor el r a & Burd" 
:PRINT”l-novos dados” : PRINT"2 
-qrava dados" rPRINT ”3-lc dado 
S" ; PR I NT "4— LI ST A DADOS":PRINT 
■3-FIN" 

310 A*-INKEY«: IF A*-“ “TMEN310E 
LSEONVAL « A*»B0SUB20, 30, 70, l 10 
.400 

320 GOT 0300 

400 CLS: PR I NT "adeoe, . . " 

410 END 

Ao utilizar esta agenda, pela primeira 
vez, voce deve selecionar a opnao I e incluir 
os nomes con forme o programa pede. Mais 
tanle, quando voci desejar alterar um nome 
da lista (por exemplo, o quinto nome } , sele- 
done a opt; do /, pressione ENTER aid 
surgir ‘5 -nome*' e entao escreva o novo no- 
me (o mesmo 4 vdlkio para telefone). A 
fungdo das outras opnoes 4: 5 m encerrar o 
programa; 4 * listar os dados cor rentes; 
3 = ler os dados da fita, e 2 • armazenar os 
dados atuais em fita. Note que 4 possivel 
ter vdrios arquivos. coda qual com um con- 
junto de nomes diferentes. Os programado- 
res experientes podem alterar o programa 
para aceitar uma quantidade maior de da- 
dos. 

Nossa ob serva<;do final sobre esta mat4- 
ria 4 de que ela representa apenas uma pe- 
quena amostra do MSX BASIC, pois seria 
impossivel descrever todos os comandos em 
um unico artigo. Um aspecto observado por 
nds foi o de que em nenhum livro ou ma- 
nual constam todos os comandos do MSX 
BASIC, fato este que nos levou a escrever 
um guia de referenda completo do MSX. 
que esta em edigdo pela MacGraw-Hill do 
Brasil. 

Terminamos com uma observanao pes- 
soal: dentro do mercado de micros de 8 
bits, o MSX 4, sem dtivida, o melhor compu- 
tador que jd utilizamos, quer seja pelas faci- 
lidades que apresenta em programando, 
quer pela total padronizando de seus periff- 
ricos. 



Na linha 30 os conteudos de A e B 
sSo permutados, resultando na impres- 
sao dos niimeros 6 e 5. 

OUTROS COMANDOS 

TIME: £ uma variavel reservada do 
sistema. Esta variavel conta o tempo, 
sendo automaticamente incrementada a 
cada 1 / 60 segundo. 

to T I ME=*o 

20 KORI =0T 099V : NEXT 

SO PR I NT "ESTE 'FOR* DEMORGU" ) 

TII1E/605 " segundos" 

40 END 



momento, voce verificara que o valor 
de TIME sempre aumenta (pois o tempo 
passa). 

VARPTR: Descobre o endere^o na 
memdria do MSX em que uma determi- 
nada variavel ou matriz em BASIC esta. 
Uma vez determinado este enderego, 
voce pode passd-lo para um programa 
em linguagem de maquina (por exem- 
plo) que podera ler o conteudo da varia- 
vel ou elemento da matriz. Este coman- 
do e muito util para programadores 
experientes que trabalham com lingua- 
gem de maquina. 



Na linha 10 colocamos 0 como valor 
inicial em TIME ; na linha 20 e executado 
um FOR para deixar o tempo correr; e 
na linha 30 sao impressos quantos se- 
gundos demorou o MSX BASIC na 
execugao do programa. Se voce, depois 
disso, escrever PRINT TIME a qualquer 
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ambos formados em Fisica pela USP. sao di- 
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desenvolve airtda programas que exploram os 
recursos sonoros do MSX. como o programa 
TOQUE. 
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Ideais para endere^amentos, Identifica^oes c rotulasens, podendo 
ser utilizadas em impressoras de 132 ou 80 els. que tenham tratores 
reguldveis, m^quinas de escrever e processadores de texto. 
Voce encontra as etiquetas REDIFORM em embalagens econdmicas, 
contendo a quantidade adequada a sua necessidade: 600, 900, 

1200, 1800, 3600, em quatro formatos. 



FICHAS EM FORMULARIO CONTtNUO 



A Unha Pessoal de Informitica REDIFORM voci encontra nos 
principals Magazines e Lojas Especializadas. 



Servem para confec<;ao de cartas, memorandos, avisos, relatdrlos e 
outras correspondences e podem ser utilizados em impressoras de 
1 32 ou 80 els. que tenham tratores regulaveis, maquinas de escrever e 
processadores de textos. 

VOce encontra embalagens com 250 e 800 folhas e 300 jogos de 2 vias, 
em dois formatos. 



Aplica^oes em controle de estoques, identifica^ao de produtos, 
arquivos, etc., podendo ser utilizadas em impressoras de 132 ou 
80 els. que tenham tratores reguldveis, maquinas de escrever e 

processadores de texto. 
Estas fichas possuem alta durabilidade, pois sao feitas em papel 

Cartao Branco de 180 grs/m®. 
Voce encontra as fichas REDIFORM em embalagens de 250 unidades, 

em dois formatos. 



FORNECEDOR TOTAL 
PARA INFORMATICA 



Para maiores informa^des, ligue: 

Da Grande Sao Paulo: 872-3316 - De outros locais: (011)800-3316 
(nds pagamos seu interurtoano) 
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A Microdigita 
lanfa no Brasi 
o micro pessoal 
demaiorsucesso 
no mundo 

A pamr de agora a historia dos 
micros pessoais vai ser contada em duas 
panes: antes e depots do TK 90X. 

0 TK 90X e, simplesmente. o umco 
micro pessoal lancado no Brasil que 
merece a classificacao de software 
machine”: urn caso raro de micro que 
pela sua facilidade de uso, grandes 



recursos e preco acessivel recebeu a 
atencao dos criadores de programas e 
perifencos em todo o mundo. 



Para voce ter uma ideia, existem 
mais de 2 mil programas. 70 




revistas de usuarios disponiveis para ele 
internacionalmente. 

E aqui o TK 90X ja sai com mais de 
100 programas, enquanto outros estao 
em fase final de desenvolvimento para 
Ihe dar mais opcoes para trabalhar, 
aprender ou se divenir que com qualquer 
outro micro. 

0 TK 90X tern duas versoes de 
memona Ide 16 ou 48 K). imagem de 
alia resolucao grafica com 8 cores, 
carregamento rapido de programas 
Icontrolavel pelo proprio monitor), som 
pela TV. letras maiusculas e mmusculas 
e amda uma exclusividade: acentuacao 
em ponugues. 

Faca o seu programa: peca ia uma 
demonstracao do novo TK 90X. 

A1ICRODIGIML 
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